my $x = shift;
$x = '' unless defined $x;