You can also do this with a simple regexp matching 'non-whitespace characters followed by end of string'.

#!/usr/bin/perl -w

use strict;

my $test = "something something this";
$test =~ /(\S*)$/;
print "Got $1\n";
[download]