my %bezeichner=map{($_,1)}('a'..'z'); # oder was für Bezeichner es sonst sind
#...
my @blocks=split(/\s+/,$data); # oder wie es sonst getrennt ist
#...
if(grep{$bezeichner{$_}}(@blocks))
{
  print "gefunden";
}