Select Code to Download

use strict;
use warnings;
...
my @results = split( /(?=command)/, $string );

print Dumper( \@results );

$VAR1 = [
          'command = adb
...
  adsgadg
asd'
        ];