Versuch, ein Perl-Script abzubrechen

[jsnewusr]

Ich will ein Perl-Script abbrechen, wenn der reguläre Ausdruck falsch
ist. Nun bricht das Programm bei dem Namen aaa.bbb nicht ab, wenn
ich '!=' angebe, aber auch nicht wenn ich das Gegenteil '=~' angebe.
Ich habe nun gedacht,dass der Programmteil gar nicht durchlaufen
wird, aber wenn ich statt der if-Anweisung nur 'die;' angebe,
bricht das Programm ab.
Ich weiß mir leider nicht mehr zu helfen !

#!/usr/bin/perl -w
use strict;

NMS FormMail Version 3.14c1

use vars qw(......  $tname   .....);
use CGI;
BEGIN
{
  $DEBUGGING         = 0;
      ............
  $query = new CGI;
  $tname       = $query -> param('name');
  if ($tname ne "")
    {
     if ($tname != /^([a-zA-Z0-9\xE4\xF6\xFC\xC4\xD6\xDC\xDF])+$/)
       {
        die;
       };
    };

........

USER CUSTOMISATION << END >>

----------------------------

(no user serviceable parts beyond here)

}

........