Select Code to Download

use Data::Dumper;
$Data::Dumper::Useqq = 1;
print Dumper($str);

print Dumper("6 1/2")

$VAR1 = "6\2401\\/2";