Help for this page

Select Code to Download

Select or download this

my @line;
foreach my $line (@data_file) {
...
   /x;
   print join('|',@line),"\n";
}