如何将"lastname,firstname"拆分为单独的字符串？

什么是将"Parisi,Kenneth"分为"Kenneth"和"Parisi"的最佳方式？
我仍在学习如何用这些正则表达式解析字符串,但不太熟悉如何设置vars等于匹配的字符串和匹配(或不匹配)字符串的输出.

my ($lname, $fname) = split(/,\s*/, $fullname, 2);

注意第三个参数,它将结果限制为两个.不是严格要求,但仍然是一个很好的做法imho.