my $filename2 = "apple.htm";
 my $filename2 =~ s/^[^.]*(\.[\w]+$)/$1/;