Select Code to Download

perl> $_="a1 a2 a3";
if( /a(\d)/g ){ print $1, ' ', pos( $_ ); }
...

1 2
2 5