Parse String with PERL [A-Z]

[fsaerospace]

Hey! I need to parse, from <STDIN>, a string such as:

HDFx-GdFs

Each character is a letter and can be lower or upper case.
How do I make this into a regex expression?

here's the code (which isn't setup to parse for exactly this 4 letters, dash, 4 letters setup):

if($line =~ /Testcode.*[\#: ](\w\S+)/){ $etestcode=$1; }

 

[justice41]

Something simple like

/^[a-zA-Z]{4}-[a-zA-Z]{4}$/

will work.

jaa