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

print $a, $/;


^D
2