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

##</code><code>##

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


##</code><code>##

if ($line =~ m/\|/);