$a="X\LBLA\EX";
$b="\Un${a}n\El";
print $b;

#prints NXBLAXNl