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

# alles einlesen
my @array=<$fh>;

# Zeilenumbrüche entfernen
chomp(@array);

# Datei schließen
close $fh;

# das Array durchgehen
for my $line (@array)
{
  print "match\n" if($line eq 'HALLO');
}