$text = 'abcdefghijklmnopqrstuvwxyz'; 
$text =~ tr^m,n^|\/|,/\/^; 
print $text;