Select Code to Download

@a2 = split /(abc)/, "uno abc dos";
... some use of $1 ...

#! /usr/bin/perl

...

print "@a1\n"; # prints "uno   dos", as expeted
print "@a2\n"; # prints "uno  abc  dos" !!! :(