TEXT1

TEXT2

TEXT3

#### open (FICH, "$file"); $all = ; close (FICH); my $good = $1 if ($all =~ m/$start(.*?)$end/);