Select Code to Download

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

for my $line (@data_in_the_file) 
                {
...
                        print "<br>______" if ($line =~ m/\|/);
              }

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