Ted,<br><br>Thank you very much for the suggested rewrite for the subroutine.&nbsp; So far it has not hung (fingers crossed).&nbsp; However,&nbsp; the lines with espf[ in them are not being removed with:<br><br>next if $line =~ m/espf\[/;<br><br>For example, if the $in_file contains the line:<br><br><pre><tt><tt>^epsf[cs.45]{../rush_graphics/truck_slogan5.eps}</tt></tt></pre>it does not get removed.&nbsp; Did I do something wrong?<br><br><b><i>Ted Zlatanov &lt;tzz@lifelogs.com&gt;</i></b> wrote:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><richard@rushlogistics.com>sub delimit {<br> my ($tos, $ccs, $rp, $sb, $body, $in_file) = @_;<br><br> return unless defined $in_file;<br> open IN, '&lt;', $in_file or warn "Could not open $in_file: $!";<br> my @lines;<br><br> while (my $line = <IN>)<br> {<br>  next if $line =~ m/espf\[/;<br>  push(@lines, $line);<br> }
 <br>}<br><br></IN></richard@rushlogistics.com></blockquote><br>