Select Code to Download

#!/usr/bin/perl
use strict;
...
#12345678901234567890123456789012345678901234567890123456
 my$a=$_[0];grep{open F,$_;grep/$a/,<F>}(<*>)
}

#12345678901234567890123456789012345678901234567890123456
 my$a=$_[0];grep{open F,$_;grep/$a/,<F>}<*>