I just want to catch "TT-AAA-MMMM-1929" making a start from "123" or "456". So, this regex works in my regex constructor (I don't know what type of engine it is based on) but the perl script finds nothing...