my $x = '234';
my ($a) = $x =~ m/(\d)$/;