Select Code to Download

open(FILE, 'my_file.txt');
while ($line = <FILE>) {
...
     print "<br>$line_parts[0]\n";
}
close(FILE);

1.1.2|W|foo|abc

1.1.2

$delimiter = "\|";
.....
     @line_parts = split(/$delimiter/, $line);

1

$delimiter = "|";
.....
@line_parts = split(/\$delimiter/, $line);