Apologies.&nbsp; Since the program is on a private network I am copying it into the email.&nbsp; Here is code with the omitted lines that come before:<br><br>#!/usr/bin/perl5 -w <br><br>use warnings;<br>use strict;<br><br>sub delimit {<br><br>my ($tos, $ccs, $rp, $sb, $body, $in_file) = @_;<br><br>if (defined $in_file) { # file submited <br><br>@ARGV = $in_file;<br><br>$body = "";&nbsp; <br><br>while(&lt;&gt;) {<br><br>unless(/epsf\[/) {<br>&nbsp;&nbsp;&nbsp; $body = $body . $_;<br>} # end of unless<br><br>} # end of while<br><br>} # end of if &nbsp;  <br><br>} # end of sub<br><br><br>Randal what does a single undef mean?&nbsp; Does it mean only one file?<br><br>should I do:<br><br>@ARGV = qw($in_file);&nbsp; <br><br>?<br><blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Now, @ARGV contains only a single undef, which I *think* will  <br></blockquote> Thank you very much for the replies.&nbsp; In answering
 Matt's question the <br>files are between 20 and 100 lines.<br><br><br><br><BR><BR>Your beliefs become your thoughts.  Your thoughts become your words.  Your words become your actions.  Your actions become your habits.  Your habits become your values.  Your values become your destiny.  -- Mahatma Gandhi