Re: Curios use of regular expressions in split ($1 eh?)

[tye]

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)