use 5.20.0;
use List::AllUtils qw/ sum /;
while(<>){
chomp;
$::l += 2;
use DDP;
s/(\\|")(?{$::l++})//g;
warn $_;
}
say $::l;