package Crypt::1337; use base Exporter; @EXPORT = qw(to_1337 from_leet); sub to_1337 { my($str) = lc $_[0]; $str =~ s/\bto\b/2/g; $str =~ s/ate/8/g; $str =~ tr/letasbgo/13745690/; $str; }; sub from_leet { @str = split /(\s+)/, lc $_[0]; for (@str) { next if /\s/; $_ = 'to' if $_ == 2; $_ = 'a' if $_ == 4; next if(/^\d+$/ && $_ !~ /3?1337/); s/8/ate/g; s/8/to/g; tr/13745690/letasbgo/; } join '', @str; }