#!/usr/bin/perl

$string = "something, something, something, this";

$string = reverse $string; 
$string =~ s/\S+\s//;
$string = reverse $string;

print $string;