[TriLUG] regular expression

[acoliver]

Hi all,  I'm not having a PERL day.

Any one of you regular expression gurus have the answer to this

If I have this (coming line by line from stdin):
$linein = 01072001/string.189.123123

What would the regular expression be to suck out '189'?  The directory name
is fixed length, the string is variable and the trailing numeric is
variable.  The only thing I know in other words is I want to match
everything between the two dots but not including them.

-Andy