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

my $infile = 'test.txt';

open my( $read_handle ), '<', $infile
  or die "open($infile) failed: $!\n";

while( defined( my $line = <$read_handle> ) ) {
  # Umbruch raus, beachte Doku: perldoc -f chomp
  chomp $line;

  # Verschiedene Moeglichkeiten des Testens:  

  # Die Zeile enthaelt nur Ziffern
  if ( $line =~ m/\A\d+\z/ ) {
    print "found digits...\n";
  }
  # Die Zeile enthaelt genau die Zeichenfolge "abcd"
  elsif ( $line eq 'abcd' ) {
    print "found 'abcd'\n";
  }
}
close $read_handle;