#! /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$/;