regular expression for ab1-cd1.

Hi,
I am trying to write a regular expression in perl to match pattern like "ab1-cd1"(<alphabet><alphabet><number>-<alphabet><alphabet><number>) as below.

m/^[A-Za-z]+[0-9]+-+[-A-Za-z]+[0-9]?$/

but seems not working.

Can anyone help me?

Try:

/\w\w\d-\w\w\d/

General unix reg-ex would be as

 /^[a-z][a-z][0-9]-[a-z][a-z][0-9]$/
m/[[:alpha:]]{2}[[:digit:]]-[[:alpha:]]{2}[[:digit:]]/