Along similar lines, using the debugger (just run perl -de 0) is a good way to "prototype" your regexen. Set $_ to your target string and then just plug away building up x m{foo}, x m{fo(x|obar)}, ... until you get something that works.