You think you have

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

but you actually have

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

This is because you treated the file as UTF-8 when you viewed it, but you didn't tell Perl to do the same by adding use utf8;.