I don't know what 4Test code is, however unless it's extremely simple simple regexp won't cut it. You should look into Parse::RecDescent and similar parser modules instead.