why not do this $str =~ /(\w+)$/;