Take a look at Backwards searching with regexps you might also want to find the definitive answers in perlre search in there for assertion and you'll be able to find just what you need.

vroom | Tim Vroom | vroom@cs.hope.edu