hello there this is a bad that we need to take away. Here is another bad that needs to go too. #### #!/usr/bin/perl use strict; print "Info: ARGV is: @ARGV\n"; while () { chomp; if (-e $_) { # a regular file (might be suited to your needs) # do something with $_ as if it were shifted from @ARGV print "handling file: $_\n"; open IN, "<$_" or die "Can't open $_: $!\n"; open OUT, ">outfile" or die "Can't open outfile: $!\n"; while () { s///g; print OUT; } close IN;close OUT; } else { warn "no such file: $_ \n"; } }