Progress, maybe. 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, <> line3.<br><br>This is turning out to be a disruptive problem here. 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 = ""; <br><br>while(<>) {<br><br>push(@lines, $_) unless (/espf\[/); # hangs here sometimes<br><br>} # end of while<br><br>} # end of if <br><br>} # end of sub<br><br>