$str = join '', map {$_ & 0x7f} split //, $str;

##</code><code>##

    $str =~ s/(.)/$1 & 0x7f/eg;