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

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

sub dvorak_help
{
    return "Voor als je per ongeluk Dvorak typt: dvorak <tekst>\n";
}

1;
