Help for this page

Select Code to Download


  1. or download this
    my @a = (
            'simple',
    ...
            s/ (?=("[^"]*"[^"])*[^"]+$)/ | /g;
            print "$_\n";
    }
    
  2. or download this
    simple
    keep | simple
    a | "bit more" | difficult
    an | "increasing more" | "and more" | here