$ perl -we 'undef=undef' $ #### $ perl -we 'undef=0' Modification of a read-only value attempted at -e line 1. $ #### @flds = split(/(\t)/, $value);