if( $tracking =~ m[[^\0]] ) { 
     ##    ...
}