#!/usr/bin/perl
use strict;
use warnings;


my $file='test.txt';

open(my $fh,'<',"test.txt") or die("ERROR open $file ($!)");

while(my $line=<$fh>)
{
  chomp($line);
  # wenn ein Zeichen vorhanden ist das keine Zahl ist
  if ($line =~/\D/){
    print "es wurde ein STring gefunden\n";
  }
  else{
    print "in der Zeile steht eine Zahl\n";
  }
}

close($fh);