my @a = split /(abc)/, "uno abc dos";
print "\$1=($1)\n"
    if  splice(@a,1,1) =~ /(.*)/;
print "\@a=(", join(',',@a), ")\n";
__END__
$1=(abc)
@a=(uno , dos)