Select Code to Download

#!perl
use strict;
...
my ($field_data,$comment)=split(";",$field8);
print "$field_data\n";
}

field1data|field2data|field3data|field4data|field5data|field6data|fiel
+d7data|field8data1; comment goes here!