in reply to How come undef eq '' ??

just replace 
if( $tmp and ( $tmp eq "" ) )

[download]
with 
if( defined($tmp) and ( $tmp eq "" ) )

[download]

In Section Seekers of Perl Wisdom