I have a script like the one below that looks though a file and removes any line that contains the sequence "epsf[". <br><br>Sometimes it hangs and I can't figure out why, although I suspect that it might be my while (<>) loop. Is there is something that I am doing that is careless that might hint as to why the program sometimes hangs?<br><br>#!/usr/bin/perl5 -w <br><br>@ARGV = $infile;<br><br>my $body = "";<br><br>while(<>) {<br> unless(/epsf\[/) {<br> $body = $body . $_;<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