$data = "This doesn't match\n";

if ($data =~ /^\s*$/)
{
    print "$data Matches\n";
}
else 
{
    print "$data Does not match\n";
}
#OUTPUT
#This doesn't match
# Does not match