Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    my @pieces = ($input =~ /$PATTERN/g);
    printf qq(%s\n), join qq( ), map {qq("$_")} @pieces;
}
  2. or download this
    "(aaa) (bbb (ccc( ddd) eee)) (fff)" => "(aaa)" "(bbb (ccc( ddd) eee))"
+ "(fff)"
"  (a) ((bc (d))  ef) h" => "(a)" "((bc (d))  ef)"
...
"(a) " => "(a)"
"(a)   (bc)" => "(a)" "(bc)"
"" =>