export bad_code=bad_codeZ
echo "\$bad_code is $bad_code" 

##</code><code>##

$bad_codeP = $ENV{"bad_code"};
chomp $bad_codeP;
print "\$bad_codeP is $bad_codeP \n";