in reply to Not quite a simple split

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

[download]
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
Timing (and a little luck) are everything!

In Section Seekers of Perl Wisdom