in reply to Mixed Data

tr/\000//d;

You might want to look it up in 'perldoc perlop'. See also 7 Stages of Regex Users.