my ($last) = $x =~ /(.)$/;