#!/usr/bin/perl
use strict;
use warnings;

my @value;

my $i = 0;
while (<>) { # read from @ARGV
	chomp;
	push @{ $value[$i++] }, /:([^:]+)/; # get timestamp
	$i = 0 if eof;
}

my $write = 'write.txt';

open my $out , ">" , $write or die "Could not open: $write - $!\n";

print $out localtime . "\n";
print $out "@$_\n" for @value;

close $out or die "Could not close: $write - $!\n";

print "Successfully written on $write.\n";