wie wärs mit Regexp::Assemble? sieht aus, als würde es genau das machen,
was du willst.