#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;


my $rw1 = open(FILE,"Datei1.dat");      # Die Datei1.dat wird geöffnet
my @Datei1 = <FILE>;                    # Der Inhalt der Datei wird in das Array @Datei1 geschieben
close(FILE);                            # Die Datei wird wieder geschlossen.

my $rw2 = open(FILE,"Datei2.dat");      # Die Datei2.dat wird geöffnet 
my @Datei2 = <FILE>;                    # Der Inhalt der Datei wird in das Array @Datei2 geschieben
close(FILE);                            # Die Datei wird wieder geschlossen.


my $string1 = $Datei1[0];               # Der Inhalt der ersten Zeile des Arrays @Datei1 wird in die Variable $string1 geschrieben 
my $string2 = $Datei2[0];               # Der Inhalt der ersten Zeile des Arrays @Datei2 wird in die Variable $string2 geschrieben
  
    

    if ('$string1' eq '$string2') {     # Die Variablen $string1 und $string2 werden verglichen.
        print "Ist gleich!\n";
    } else {
        print "Ist nicht gleich!\n";
        
    }
print "In dem String1 steht $string1\n";# Der inhalt von $string1 wird nochmal aus gegeben
print "In dem String2 steht $string2\n";# Der inhalt von $string2 wird nochmal aus gegeben