Help for this page
<START>TEXT1<END><br> <various data><br> <START>TEXT2<END><br> <various data><br> <START>TEXT3<END><br><br>
open (FICH, "$file"); $all = <FICH>; close (FICH); my $good = $1 if ($all =~ m/$start(.*?)$end/);