Help for this page
$_ = '·|·'; print y/·/./r, "\n"; print s/·/./gr, "\n";
$_ = '·|·'; print y/·/./r, "\n"; print s/·/./gr, "\n";