my %rec;
my $pid;
while (<>) {
   $pid = $1 if /^Backup ID: (\d+)$/;
   $rec{$pid}{path} = $1 if /^Path:   (\S+)$/;
   $rec{$pid}{size} = $1 if /^Size:   (\d+)$/;
}