s{  ( [a-zA-Z]+ (?: ' [a-zA-Z]{1,2} )? )  }{

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

    }exg;