#!perl -w
use strict;
use Data::Dumper;

my @a1 = split /abc/, "uno abc dos";
my @a2 = split /(abc)/, "uno abc dos";

print "a1: ", Dumper \@a1;

print "a2: ", Dumper \@a2;

__END__
a1: $VAR1 = [
          'uno ',
          ' dos'
        ];
a2: $VAR1 = [
          'uno ',
          'abc',
          ' dos'
        ];