$a = "/morse_value";
$a =~ s/\//\\/g;
print "$a\n";