Select Code to Download

$str= 'no change <these spaces need replacing> not these <these do>';
$str =~ s{(<[^>]*?>)}
...
         $x;
        }egx;
print $str

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;