my $string = "something, something, something, this";
my $lastword = ( split(/\s*,\s*/, $string) )[-1];