...... elsif ($BOOL eq 'und'){
              if($line =~ /$TEXTS[0]/) {
                if($line =~ /$TEXTS[1]/) {
                     if($line =~ /$TEXTS[2]/) {
                       if($line =~ /$TEXTS[3]/) {
                         if($line =~ /$TEXTS[4]/) {
......