Regulaere Ausdruecke sind eben regulaere Ausdruecke. Wenn Du einen String vom Benutzer einliest und in einen Regex einbettest, wird es auch als Regex behandelt. Siehe "DON'T" in perlcheat.
Entweder:

oder einfach:


Ausserdem solltest Du unbedingt die Rueckgabewerte von open ueberpruefen, und wenn Du gegen volle Platten gefeit sein willst, auch die von print und close.\n\n

<!--EDIT|betterworld|1172768232-->