my $var = 'a111a222a333';
$var =~ m/a(\d+)/g and print $1
# prints '111'