Select Code to Download

use warnings;
use strict;
...
while (<$fh1>) {
    print Dumper($_) if /root/ || /wheel/ || /www/; 
}