my $a = "index.html";
  my ($filename, $extension) = split /\./, $a;
  print "filename = $filename\n";
  print "extension = $extension\n";