Select Code to Download

use warnings;
use strict;
...
my $pattern = prompt("Gimme a RegEx: ");
print $str=~$pattern ? "Yes!" : "No.", "\n";
print "kthxbye\n";

use Acme::Pythonic;
use warnings
...
    else:
        print("No.\n")
print("kthxbye\n")