print "'$_' is empty string" if $_ =~ /^$/;