#!/usr/bin/perl -w
use strict;
local $^W=1;
use Data::Dumper;
my $file ="test.html"; 
my @title = split (".", $file);  

print "$file\n";
print "$title[0]\n";
print "$title[1]\n";
print "$title[2]\n";
warn Dumper(\@title);

@title = split (/\./, $file);  

print "$file\n";
print "$title[1]\n";
warn Dumper(\@title);

use File::Basename;
## remember, suffix's are regex patterns
my ($name,$path,$suffix) = fileparse($file,"\Q.html\E");
print "path $path\n";
print "name $name\n";
print "sufx $suffix\n";