$ perl -le'
my $list = "This is my list";
( reverse $list ) =~ /(\w+)\s(.+)/;
my $last = reverse $1; my $the_rest = reverse $2;
print $the_rest;
print $last;
'
This is my
list