$ perl -le'print q{"$temp"}'
"$temp"