while (match('a')) {
    print "- $_\n";   # $_ is undef all the time
}