Help for this page
use strict; use warnings; ... $code =~ s/\~([\da-fA-F]{2})/chr( hex( $1 ) )/eg; return $code; }