Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use warnings;
...
1..11
ok 12 - no warnings
1..12

sub CollapseWhitespace {
  my $s = shift;
...
    : ''
    ;
  }