perl -nle" print "$ARGV:($./$+[0]): $1" if m[([AN]{10,}]g;" file*