#qwerty
use utf8;
sub qwerty
{
    my ($msg) = @_;

    $msg =~ tr/[]',.pyfgcrl\/=aoeuidhtns\-;qjkxbmwvz/-=qwertyuiop[]asdfghjkl;'zxcvbnm,.\//; # '
    $msg =~ tr/{}"<>PYFGCRL?+AOEUIDHTNS_:QJKXBMWVZ/_+QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>?/;
    return $msg;
}

sub qwerty_help
{
    return "Voor als je per ongeluk Qwerty typt: qwerty <tekst>\n";
}

1;
