Select Code to Download

#! perl
use strict;
...
    my $re   = qr[^\Q$text\E];
    print "\n", $_, ': ', "\n", $text, " -->\n", $re, "\n";
}