our $A = open(EINS,"test.txt"); 
our @array= <EINS>;  
our $index=0;
while (defined(@array[$index])){
if (@array[$index] eq "abcd"){
print "es wurde ein STring gefunden\n";
$index=$index+1;}

else{
print "in der Zeile steht eine Zahl\n";
$index=$index+1;
}}