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

i tried
$p =~ /m=lr\d{2}/ )
m=lr10.moscou:te5-0
m=lr101.moscou:be5-0-0
But it is still picking the lr101
Thank you.

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.