Of course to do this you're going to need to parse the perl regexp to begin with. Take a look at YAPE::Regex. That'll get you a parse tree you can walk and munge into your other format.