perl -MData::Dumper -e '$x.= undef; print Dumper($x)'
__OUTPUT__
$VAR1 = '';