Select Code to Download

Use of uninitialized value $1...

say if !/(.{6})\s+.+=([^\s]+)/;

next unless /(.{6})\s+.+=([^\s]+)/;