undef $/;
open (DAT, "<", "data") || die "No data: $!\n";
$string = <DAT>;
close(DAT);
print $string, "\n\n";

# Ohne Modifizierer
$string =~ m/(\w+)$/;
$zeile = $1;
print "O: ", $zeile, "\n";

# Multiline-Modus
$string =~ m/(\w+)$/m;
$zeile = $1;
print "M: ", $zeile, "\n";

# Singleline-Modus
$string =~ m/(\w+)$/s;
$zeile = $1;
print "S: ", $zeile, "\n";