my $extract = $1 
   if $text =~ /^(.*?)($end1|$end2|$end3)/;