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

1 2
2 5