001_perl_test.pl

print "There's more than one way to do it!" =~ /\s(?:.*\s)?(\w+?)/;