$peg_nl =~ s/\s+/ /g;