push(@lines, $_) unless (/espf\[/);

##</code><code>##

Not a subroutine reference at ./file_delimiter.pl line 24, <> line3.

##</code><code>##

#!/usr/bin/perl5 -w

use warnings;
use strict;

sub delimit {

my ($tos, $ccs, $rp, $sb, $body, $in_file) = @_;

if (defined $in_file) { # file submited

@ARGV = $in_file;

$body = ""; 

while(<>) {

push(@lines, $_) unless (/espf\[/);  # hangs here sometimes

} # end of while

} # end of if  

} # end of sub