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

##</code><code>##

my $last = substr $x, -1, 1;