=~ /(,[^,]+)$/

##</code><code>##

my $last = ( split /,/, $str ) [ 0 ] ;