pl@nereida:~/Lperltesting$ cat abigail1.pl
#!/usr/bin/perl
local $" = ", ";

"a" =~ /(a)|(b)/;
print "\@- = (@-)\t length of \@- = ".((scalar @-)."\t last - index = $#-\n");
print "\@+ = (@+)\t length of \@+ = ".((scalar @+)."\t last + index = $#+\n")