Help for this page

Select Code to Download


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

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

    }exg;
  2. or download this
    s{  ( [a-zA-Z]+ (?: ' [a-zA-Z]{1,2} )? )  }{

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

    }exg;
  3. or download this
    s{  ( [a-zA-Z]+ (?: ' [a-zA-Z]{1,2} )? )  }{

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

    }exg;
  4. or download this
    Use of uninitialized value in substitution iterator at ...