#!perl -pl
$_=
/^digi .*(?i:nyo)[^0-9A-Za-z]{0,3}$/ ||
/^petit .*(?i:nyu)[^0-9A-Za-z]{0,3}$/ ||
/^rabi .*[0-9A-Za-z]/ ||
/^gema .*(?i:gema)[^0-9A-Za-z]{0,3}$/ ||
/^piyo .*(?i:pyo)[^0-9A-Za-z]{0,3}$/
?'CORRECT (maybe)':'WRONG!'