#!/usr/bin/perl --
use strict; use warnings; 
use Data::Dumper;
my @a1 = split /abc/, "uno abc dos";
my @a2 = split /(abc)/, "uno abc dos";
my @a3 = split /(?:abc)/, "uno abc dos";
print "a1 @a1\n", Dumper( \@a1 ), "\n";
print "a2 @a2\n", Dumper( \@a2 ), "\n";
print "a3 @a3\n", Dumper( \@a3 ), "\n";
__END__
a1 uno   dos
$VAR1 = [
          'uno ',
          ' dos'
        ];

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

a3 uno   dos
$VAR1 = [
          'uno ',
          ' dos'
        ];