#! /usr/bin/perl

use strict;
use re 'debug';

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

##</code><code>##

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