regexp ausschließlichkeit

[Dracherl]

if($a !~ m/^\w{4}\b(\w{4}\b)*$/) {
  die 'Du Sack!';
}

Funkst net ;(

"aaaa aaaa" matched net

#!/usr/bin/perl
use strict;

my $a;
while($a ne "quit" || $a ne "bye"){
 print "String eingeben !\n";
 $a = <STDIN>;
 chop($a);
 if($a !~ m/^\w{4}\b(\w{4}\b)*$/) {print "\n '$a' Passt nicht ! \n";}
 else{print "\n '$a' Passt ! \n";}
}
exit;