Select Code to Download

while ( <DATA> ) {
   my $data = $_;
   my @cols = (split(' ', $data, 4),
...
 6     2   -78 testing stuff         0 69.68.119.54:28960    34756 250
+00
 7     4  118 [:EsU:]|BLaZE|        0 24.86.4.164:28960      7248  500
+0
6     2   78 tesssssssting gg  gggggggg   REAAAAA     40 69.68.119.54:
+28960    34756 25000

<6><2><-78><testing stuff         0 69.68.119.54:28960    34756 25000
><0><69.68.119.54:28960><34756>
<7><4><118><[:EsU:]|BLaZE|        0 24.86.4.164:28960      7248  5000
><0><24.86.4.164:28960><7248>
<6><2><78><tesssssssting gg  gggggggg   REAAAAA     40 69.68.119.54:28
+960    34756 25000
><40><69.68.119.54:28960><34756>

while ( <DATA> ) {
   my @tmp = split ' ', $_, 4;
   my @start = splice @tmp, 0, 3;
...
   print "<$_>" for @parsed;
   print "\n";
}

<6><2><-78><testing stuff><0><69.68.119.54:28960><34756><25000>
<7><4><118><[:EsU:]|BLaZE|><0><24.86.4.164:28960><7248><5000>
<6><2><78><tesssssssting gg  gggggggg   REAAAAA><40><69.68.119.54:2896
+0><34756><25000>