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