Progress, maybe.&nbsp; I believe this script is hanging at the line push(@lines, $_) unless (/espf\[/); <br><br>I believe this because in cases when it hangs, if I do a Cntl-C I get:<br><br>Not a subroutine reference at ./file_delimiter.pl line 24, &lt;&gt; line3.<br><br>This is turning out to be a disruptive problem here.&nbsp; Any help would be greatly appreciated.<br><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>push(@lines, $_) unless (/espf\[/);&nbsp; # hangs here sometimes<br><br>} # end of while<br><br>} # end of if &nbsp;  <br><br>} # end of sub<br><br>