Help for this page
my $success; while(/PATTERN/g) { ... last; } }
$_ = 'bar bar obar foooooobar bar'; my($success, $start) = 0; ... } } print "$success: $start\n";