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