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