use strict;

my $infile = $ARGV[0];
my $outfile = $ARGV[1];
open my $in,   "<",  $infile       or die $!;
open my $out, ">", $outfile    or die $!;
print $out "Arrival Time|From|To|User-Agent\n";
my $line;
while ( <$in> )  {
s/        //;
s/    //;
s/ Malay Peninsula Standard Time//;
s/From:/\|From:/;
s/To:/\|To:/;
s/User-Agent:/\|User-Agent:/;
$line .= $_ if ($_ =~ m/Arrival Time:|\|From:|\|To:|\|User-Agent:/);
chomp $line if /^Arrival Time:|\|From:/;
if ($line =~ m/User-Agent:/)
{
$line =~ s/^\n//;
}
$line =~ s/Arrival Time: //;
$line =~ s/From: //;
$line =~ s/To: //;
$line =~ s/User-Agent: //;
if (eof){chomp $line}
}
print $out $line;
close $in;
close $out;