# grep each file for my $FNAME (@ARGV) { open my $INFILE, '<', $FNAME or do { warn "Cannot open '$FNAME' because: $!"; next; };