for my $line (@data_in_the_file) 
                {
                        my @fields = split(/\Q|\E/gm, $line);
                        for my $field (@fields) 
                        {
                                  print "<br>$field";
                            
                        }
                        print "<br>______";
              }