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