The delimit sub is designed to check and see if an infile is submitted and if it is remove any line from the $in_file that contains the characters espf[. The @ARGV while (<>) schema is because I got it from page 72 of my Learning Perl (4th addition) book.