Select Code to Download

my $rxSpaces = qr{(?x)  # Use regex extended syntax to allow comments
   (?:                  # Open non-capturing group for alternation
...
      \s+ (?= \z )      # Spaces followed by end of string
   )                    # Close group
   };

c:\@Work\Perl\monks>perl -wMstrict -le
"use Test::More 'no_plan';
...
1..3
ok 4 - no warnings
1..4

c:\@Work\Perl\monks>perl -wMstrict -le
"use Test::More 'no_plan';
...
ok 7 - no warnings
1..7
# Looks like you failed 2 tests of 7.