#!/usr/bin/perl use strict; use warnings; # dateiname setzen my $file='report.xml'; # Datei als UTF-8 kodiert öffnen, oder Fehlermeldung open (my $fh,'<:encoding(UTF-8)', $file) or die("Error open $file ($!)\n"); { # input line separator local $/=undef; # mit regulärem Ausdruck "HALLO" finden print "match\n" if( <$fh>=~/\nHALLO\n/ ); } # Datei schließen close $fh;