Select Code to Download

my @match;
while (<>)) {
...
} else {
    die("No match\n");
}

my $match;
while (<>)) {
...
} else {
    die("No match\n");
}