$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