$_="a1 a2 a3";
while(?a(\d)?){ print $1; }
while(?a(\d)?){ print $1; }
__END__
11