#! /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;