$str =~ tr|A-Za-z0-9+/| -_|;  # convert to uuencoded format

##</code><code>##

 $str =~ tr|A-Za-z0-9+/| -_|;