If I understood the 'spec'?
$s = 'The 8"quick brown" fox jumps over the U"lazy" dog'; print join'|', $s =~ m[ \s* ( (?: [8U]"[^"]+" ) | \S+ ) ]gx; The|8"quick brown"|fox|jumps|over|the|U"lazy"|dog
In reply to Re: Not quite a simple split
by BrowserUk
in thread Not quite a simple split
by John M. Dlugosz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |