Select Code to Download

use strict;
use Regexp::Common qw /comment/;
...
        print "\tno comment\n";
    }
}

PL/SQL Comment in String
        contains comment
...
        contains comment
Perl no comment
        no comment