Select Code to Download

my $qs =qr/'(?:[^\\']|\\.)*'/;
my $qqs=qr/"(?:[^\\"]|\\.)*"/;

#!perl
use strict;
...
        s{^($nocomment)//.*}{$1}o;
        print $_,"\n";
}