$str = "this is a string";
@str = split /\s/, $str;
print pop(@str);

##</code><code>##

print pop(split(/\s/, $str));