$str = "f3333_4444_2222";;

$str =~ tr[342][123]s;;

print $str;;
f1_2_3