Every time you visit for the FIRST TIME today... [Part 1]

Post a random function that you made. May be from any project you've done or make one impromptu.

Any QUALITY is allowed. No bullying!

sub h2z {
my $s = shift;
$s =~ tr/　！＂＃＄％＆＇（）＊＋，－．／/ !"#$%&'()*+,-.\//;
$s =~ tr/０-９：；＜＝＞？＠Ａ-Ｚ［＼］＾/0-9:;<=>?@A-Z[\\]^/;
$s =~ tr/＿｀ａ-ｚ｛｜｝〜￠￡￢￣￤￥￦/_`a-z{|}\~¢£¬¯¦¥₩/;
return $s;
}