#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Time::HiRes qw(time);

my $file = 'test.txt';
open my $fh, '<', $file or die $!;
my @diff = <$fh>;
close $fh;

print time,"\n";

my @order;
foreach (@diff ){
   if ( $_ =~ m/^(.+):\s+\/.+:$/) {
      push @order, [$1."\n"];
   }
   elsif ( $_ =~ m/^(\d+)\s+(.+)\s+(.)\s+(\d+)\s+(.+)\s+$/ ) {
      if ($3 eq "\|") {
         push @{ $order[-1] },"\t$2\t$1\t$4\t" . "Diff: " . abs($1 - $4) . "\n";
      }
      elsif ($3 eq "\<") {
         push @{ $order[-1] }, "\tNew File:\t$5\tSize: $4\n";
      }
      elsif ($3 eq "\>") {
         push @{ $order[-1] },"\tFile deleted:\t$5\n";
      }
   }
}

print time,"\n";

/home:                                                             /home:
/home/re17830:                                                     /home/re17830:
159             .Xauthority                                     |  106          .Xauthority
9734            .sh_history.1                                   |  7425         .sh_history.1
116             .sh_history.2                                   |  93           .sh_history.2
/home/re17830/.ssh:                                                /home/re17830/.ssh:
/home/re17830/chksize:                                             /home/re17830/chksize:
1613            build_checksize_db.ksh                          |  1600         build_checksize_db.ksh
2183            checksize                                       |  2151         checksize
0               test.txt                                        <  
/home/re17830/chksize/checksize_db:                                /home/re17830/chksize/checksize_db:
1076213         SizeCheck-08-01-15.dat                          |  97882                SizeCheck-08-01-15.dat
1080180         SizeCheck-08-01-16.dat                          <  
/home/re17830/scripts:                                             /home/re17830/scripts:
/home/root:                                                        /home/root:
6927            .bash_history                                   |  6910         .bash_history
8402            .sh_history.1                                   |  2130         .sh_history.1
13310           .sh_history.2                                   |  13304                .sh_history.2
305             .vi_history                                     |  327          .vi_history
/home/root/.ssh:                                                   /home/root/.ssh:
3296            known_hosts                                     |  3068         known_hosts
/home/root/scripts:                                                /home/root/scripts:
/home/webadmin:                                                    /home/webadmin:
/home/webadmin/.ssh:                                               /home/webadmin/.ssh:
                                                                >  

C:\>skript.pl
1201602610.15138
1201602610.16779