Select Code to Download

my @array = $line =~ m{
    ^(LENGTH:     # a line beginning with LENGTH:
...
    ^(COMMENT:    # a line beggining with COMMENT
    .*)           # and the rest 
}msx

$VAR1 = [
          'LENGTH: ...................................................
+...
...
....................................................................
'
        ];