Perl regular expression?

Question

Hello,
I am struggling with a regular expression.
I want to extract strings which have 1 or 2 digits from a list of strings.
example:
m=lr10.moscou
m=lr101.moscou
m=lr20.moscou.
I only want to dispay lr10 and lr20
I tried this regular expression
m=lr(\d\d)
but it doesnt work for me
It will be very cool if someone could advise me.
thanks

Answer 1

$p =~ /(m=lr\d{2}\./)

Answer 2

You need to make sure it matches 2 digits followed by a non-digit. (and a non-digit in front of those 2 digits, too). Try this:



if ($s =~ m/\D\d\d\D/) { print $s }

Answer 3

\d{2} should match exactly 2 digits.