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