The question is, as elusion mentioned: Dou you want to split in the first dot or on the last. Consider using substr() and index() or rindex(), which is much faster than a regexp:

for(qw/
 people.html
 apple.cgi
 foo.tar.gz
 .hidden
/){
  if( (my $fd = index($_,'.')) > 0 ){
      printf "%s =FD=> %s\n", $_ => substr($_,$fd)
  }
  if( (my $ld = rindex($_,'.')) > 0 ){
      printd "%s =LD=> %s\n", $_ => substr($_,$ld)
  }
}
[download]

--
http://fruiture.de