use warnings;
use strict;

my $var1 = "0815";
print "Meine Variable hat den Inhalt: $var1\n";

open(my $dat1,'<', "c:/Muster.txt") or die "Datei wird nicht gefunden";
while (my $line = <$dat1>) {
    $line =~ s{\$var1\b}{$var1}g;
    print "$line";
}
close $dat1;