Select Code to Download

$num = 2;
while (<>) {
...
        print "match\n";
    }
}