sub DRUCKE {
  eval "print @_";
}

my $line = 'DRUCKE 9*2';
my ($befehl,@argumente) = split / /,$line;

no strict;
&{$befehl}(@argumente);