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

##</code><code>##

print Dumper("6 1/2")

##</code><code>##

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