Select Code to Download

#!/usr/bin/perl 
use strict;
...
            }
    }, @dir
);

Output:
/work/subd0/subd1/[test_05022008.pl] : my_matching_line;