if ($in =~ /^(\w{2})\s+(\w+)->(\w+)$/) {
        my($command, $key, $value) = ($1, $2, $3);
        $aliases{$key} = $value;
    }