my $string = " \t \n "; $string = "Default" if $string =~ /^\s*$/;