This looks like homework but....

m/(pl)/ will store a value in $1, m/pl/ won't. It's the brackets that define what gets written to $n

$japh->{'Caillte'} = $me;