my $zahl1 = 7;
my $zahl2 = 3;
my $operator = '*';

my $ergebnis;
eval("\$ergebnis = $zahl1 $operator $zahl2");