$string =~ tr!/!-!;