my @allability =  ( 
                     "göttlich",
                     "galaktisch",
                     "märchenhaft",
                     "mythisch",
                     "außerirdisch",
                     "gigantisch",
                     "übernatürlich",
                     "Weltklasse",
                     "fantastisch",
                     "brillant",
                     "großartig",
                     "hervorragend",
                     "sehr gut",
                     "gut",
                     "passabel",
                     "durchschnittlich",
                     "schwach",
                     "armselig",
                     "erbärmlich",
                     "katastrophal"
                   );

my $abs = join "|", @ability;

if($line =~ /.*($abs).*/)