You're using the incorrect syntax for split...

#!/usr/local/bin/perl -w

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

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

Split also works off patterns, so you need to preceed the period with a backslash to escape it.

Hope it helps,
scott.