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

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

    }exg;