use warnings; use strict; #use utf8; $_ = '§|§'; print y/§/$/r, "\n";