adventofcode/2015/08/escapes2.pl

13 lines
147 B
Perl
Raw Normal View History

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