#!/usr/bin/perl

use v5.12;
use warnings;

use Trk_dict;

my $genre_objekt = Trk_dict->new('genre_dict');
my $namen_objekt = Trk_dict->new('namen_dict');

my $eingabe = " h  H fo  h a b c     g  noch     was  ";
my $ausgabe = $genre_objekt->translate($eingabe);
print ">$ausgabe<\n";

$eingabe = " h    Christine        ";
$ausgabe = $namen_objekt->translate($eingabe);
print ">$ausgabe<\n";