>perl -MO=Deparse test.pl

use warnings;
use strict;
$_ = '';
print "  - empty line\n" if /^$/;
print "  - contains whitespace 1\n" if /^\s+$/ =~ /$_/;
print "  - contains whitespace 2\n" if /^\s+$/;
07_test.pl syntax OK