my $string = 'aaa1234bbb';
my ($number) = $string =~ /(\d+)/;