It took me a long time to see the cause of this, (but it was processing 1 GB of data), and I thought it might prove interesting/amusing to others.
Greatly simplified from the original that was processing data from a file, this program never terminates. Can you see why?
#! perl -slw
use strict;
my @bits = unpack '(a3)*', 'abcdefghijklmnopqrstuvwxyz';
1 while "@bits[3,5,7]" =~ m[vwx]g;
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.