$x =~ s/'s\z//;

##</code><code>##

    exists $dict{ lc( $x ) } ? $x : "<@>$x";