in reply to Re: Program enters infinite loop, can you see why?
in thread Program enters infinite loop, can you see why?

That doesn't really explain anything. In the following, what you said applies to $x, yet it doesn't loop forever. 

#! perl -slw
use strict;

my @bits = unpack '(a3)*', 'abcdefghijklmnopqrstuvwxyz';

my $x = "@bits[3,5,7]";
1 while $x =~ m[vwx]g;

[download]

In Section Meditations