my $file = "apple.htm";

$file =~ s/^(.*)\.(.*)$/$1/;

print "\$file = $file\n";