c:\@Work\Perl>perl -wMstrict -le
"use 5.014;
 ;;
 my $s = 'POS1/23/4';
 ;;
 my $t = $s =~ tr{/}{-}r;
 print qq{'$s' -> '$t'};
"
'POS1/23/4' -> 'POS1-23-4'