>perl -E "open IN,'<','/etc/group'; open OUT,'>','/tmp/foo'; while () { print OUT if /adm/; } close OUT; close IN;" >cat /tmp/foo sys:x:3:root,bin,adm adm:x:4:root,adm,daemon disk:x:6:root,adm >