关于split

#!/usr/bin/perl
$b = "abacadae";
@a = split(/(a)/, $b);
print "@a/n";                   // a b a c a d a e

 

@a = split(/a/, $b);
print "@a/n";                  //  b c d e