print "$file\n";

##</code><code>##

print "$title[1]\n";

##</code><code>##

my $file ="test.html"; 
my @title = split (".", $file);  

print "$file\n";
print "$title[1]\n";