Select Code to Download

use warnings;
use strict;
...
        print $val if $val =~ /foo/;  
    }
}

PRINTING FROM FH
this is line 1; foo
...
PRINTING FROM ARRAY
this is line 1; foo
this is line 3: foobar