use Data::Dumper; 
$Data::Dumper::Useqq=1; 
my $some_string = "0,-933"; 

print Dumper $some_string;
$VAR1 = "0,-933";