This matches the longest string of word characters that is followed by '.com',

my $domain;
if ($str =~ /(\w+)\.com/) {
  $domain = $1;
} else {
  # no match
  $domain = '';
}
[download]

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me