print "vanilla\n";
    print "prematch  :", $`, "\n";
    print "match     :", $&, "\n";
    print "postmatch :", $', "\n";