Lies mal die "zero-width positive look-behind assertion" in perldoc perlre nach. Das ist jedenfalls der eleganteste Weg, der mir spontan einfallen würde.