#!/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
#!/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