if ($string =~ m/^\.model ([a-z0-9]+)/i) {
    my $wort = $1;
}