You don't need to match the entire string, just the bit you want to modify.

my $myNames = "Jones, Smith, Baker, Johnson,";
$myNames =~ s/,$//;
[download]