my $text = ...
...
while ($text =~ ...