Select Code to Download

my $success;
while(/PATTERN/g) {
...
        last;
    }
}

$_ = 'bar    bar         obar     foooooobar   bar';
my($success, $start) = 0;
...
    }
}
print "$success: $start\n";