my $string = '1234';
$string =~ /(2)/;
$string =~ /(a)/;
print $1;