use warnings;
use strict;
#use utf8;

$_ = '§|§';

print y/§/$/r, "\n";

##</code><code>##

  DB<123> unpack 'H*','·'
 => "c2b7"