Select Code to Download

perl -nE 'say qq(found $1 in $ARGV, line $.) if /(my search string)/; 
+close ARGV if eof;' ./*