Select Code to Download

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

filename:(10/50): ANNNANANAAN