#!/usr/bin/perl
# extract-plus-char-lines.pl e.g. "2019/11/19 18:49:36 [30839] >f+++++++++ rootfs/etc/default/dnsmasq"
# of log-file of rsync, to see the difference between SD and bkup
# 191119

while (<>) {
   if (($line = $_) =~ /\++/) {
      chomp $line ;
      @words = split (/ /,$line);
#      print $line;
      print "$words[4]\n" ;
   }

}