#!/usr/bin/perl 

for (<>) {
        m!<a(\s+[\w]+\s*\=\s*('[^']*'|"[^"]*"))*\s*>.*?</a\s*>!i ? print "match:    " : print "no match: ";
        print;
}