Select Code to Download

use warnings;
use strict;
...
$_ = '§|§';

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

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