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

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

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