Select Code to Download

use warnings;
use strict;
...
print "  - contains whitespace 2\n" if m/^\s+$/;

>perl -MO=Deparse test.pl

...
print "  - contains whitespace 2\n" if /^\s+$/;
07_test.pl syntax OK