perl 5.0 alpha 2

[p5sagit/p5-mst-13.2.git] / t / foo

#!./perl

$_ = 'aaabbbccc';
if (/(a+b+c+)/ && $1 eq 'aaabbbccc') {
        print "ok 14\n";
} else {
        print "not ok 14\n";
}