Select Code to Download

#! /usr/bin/perl

...

print "easy\n" if 'simple' =~ /simple/;
print "hard\n" if 'simple' =~ /^.[i-k]\lM(?:pla|plo|pl)(?:oink)?e$/;

perl -le '(q(x) x 100) =~ /^x(((((x{2,5})x{2,5})x{2,4})x?)x?(?{$hit++}
+))$/; print $hit'