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 (&lt;&gt;)&nbsp; loop.&nbsp; 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(&lt;&gt;) {<br>&nbsp;&nbsp;&nbsp; unless(/epsf\[/) {<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;  &nbsp;&nbsp;  $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