use Perl6::Form;

my $eulogy = <<EOTEXT;
Friends,   Romans  , countrymen, lend me your ears;
I come to bury    Caesar   , not to praise him.
The evil that men do lives after them;
The good is oft interred with their bones;
So let it be with    Caesar    . The noble    Brutus
Hath told you     Caesar     was ambitious:
If it were so, it was a grievous fault,
And grievously hath    Caesar    answer'd it.
EOTEXT


# Default (no squeezing)...

print form
	 "| {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[} |",
	    $eulogy, "","";


# Squeeze all whitespace...

print form
	 {ws=>qr/\s+/},
     "| {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[} |",
	    $eulogy, "","";


# Squeeze all whitespace except newlines...

print form
	 {ws=>qr/[^\S\n]+/},
     "| {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[} |",
	    $eulogy, "","";

# Squeeze even harder before punctuation

print form
	 {ws=>qr/[^\S\n]+ ([,.!])?/x},
     "| {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[} |",
	    $eulogy, "","";


# Form is smart enough not to squeeze zero-width matches...

print form
	 {ws=>qr/\s*/},
     "| {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[} |",
	    $eulogy, "","";