{ for (i=1; i <= NF; i++) if ($i ~ /A[0-1][0-9][0-9][0-9][0-9][0-9]/ ) { match($i, /A[0-1][0-9][0-9][0-9][0-9][0-9]/ ); print substr($i, RSTART, 7); } }