$s = $1; $s =~ y|\x20-\x7e|.|c;

##</code><code>##

( $s = $1 ) =~ y|\x20-\x7e|.|c;

##</code><code>##

$s = $1 =~ y|\x20-\x7e|.|cr;