Select Code to Download

#!/usr/bin/perl -wnl
use strict;
...
        (?: \\ . | [^'"] ) + 
) ]gx;
print "";

sub make_dequote_rx {
    my @char = map quotemeta, @_;
...
}

my $dequote = make_dequote_rx qw(' ");