while (<>) {
 chomp;
 my ($time, $date, $expo) = split /\|/;
 print "$time, $date, $expo\n";
}