>perl -wMstrict -le "my $str = 'a b c d e 96'; my $last_field = (split / /, $str)[-1]; print qq{'$last_field'}; " '96'