Sure, use the m//m operator/modifier:

my @lastNames = $data =~ m{^[^,]+,([^,]+)}gm;
[download]

This gets the second field from each line.