Im parsing some parameters in a Perl script and I'm struggling to match a parameter that has a file name format of "name1.name2". An example name might be "enroll.peacecorp" My code looks like this: 

```
my $parms = join(' ',@ARGV);
# other params here
$db_name  = $1  if ( $parms =~ /-dbname\s+(\w\.\w+)/ ); 
# more params here

```

But it does not seem to be working. I have tried setting the pattern to /-dbname\s+(\w.\w+)/ but no success there either. I also tried this one, which did work properly, but is not as flexible: /-dbname\s+(enroll.\w+)/ 

I know for some of you regex experts, this is not a tough problem. I'd appreciate some suggestions. Thanks.