I have changed the Perl style matches to the Matchdata object, I prefer the latter style as well.