Select Code to Download

#!/usr/bin/perl
use strict;
...
print map {$_->[0]}
      sort {$a->[1] <=> $b->[1]}
      map {[$_, /^Conn Culvert Barrel=Culvert(\d+)$/m]} <$new>;

Connection Culv=This is Line1 - New text here
     111 111 This should be new too
...
     333 333 This should be new too
Conn Culvert Barrel=Culvert3
*