if ($var =~ /^(pl)|(ptk) (.+\.(pl)|(ptk))$/i) {       # $var ist die Eingabe
...