One solution is this following code. But I was just wondering if there was another better (a regex based) solution instead.

use strict;
open(HIST, "c:\\History.log") || die "\n$_ : No log file was found\n";
chomp(my @status = <HIST>);
my $line = $status[$#status-1];
my @splited = split (/\t+/,$line);
printf "%s\t%s\t%s\n",$splited[0],$splited[$#splited-1],$splited[$#spl
+ited];
[download]

Thanks