in reply to reverse interpolation
use Scalar::Quote qw(quote); $x = "\t"; print quote($x), "\n"; [download]