in reply to regex issue (positive look-ahead)

use re 'debug';

[download]

In Section Seekers of Perl Wisdom