use strict;
use warnings;

use Data::Dumper;

my $string = 
"command = adb
asd
  2t525
 command=adfaf
  adsgadg
asd";

my @results = split( /(?=command)/, $string );

print Dumper( \@results );

##</code><code>##

$VAR1 = [
          'command = adb
asd
  2t525
 ',
          'command=adfaf
  adsgadg
asd'
        ];