if ($var =~ /^(pl)|(ptk) (.+\.(pl)|(ptk))$/i) {       # $var ist die Eingabe
    if (-e $1) {
      system ("start $1");
    }
    else {
      my $f = $var2 . "/" . $1;        # $var2 ist ein Pfad der gesetzt sein kann
      if (-e $f) {
        system ("start $f");
      }
    }
  }