I'm assuming $myNames = 'Jones, Smith, Baker, Johnson,'

The regular expression then becomes:

my $myNames = 'Jones, Smith, Baker, Johnson,';
$myNames =~ s/,$//; # replace comma at the end of the string with empt
+y string
print "$myNames\n";
[download]