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

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

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

Thanks,
I presume the code that was posted contained the syntax change.
no change, I still cannot get the second print statement to work. Cal

To solve it, simply backslash it:

  split('\.', $file)
[download]

Thanks,
I tried the split syntax change and It works great.
right on
Cal

It should really be written as split /\./, $file though, since split actually uses a regex as the delimiter. Passing a string is misleading and may trip someone who casually reads your code.

Makeshifts last the longest.

#!/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";
[download]

I suggest you read perlfunc:split as well as the File::Basename documentation, and for gods sake, Use strict warnings and diagnostics or die. As you can see from the above code (which you should run), the reason print "$title[1]\n"; doesn't print anything is because @title is empty, its as simple as that. If you had warnings turned on you would've been warned, so please always use warnings and strict , they'll save you a lot of grief (and use diagnostics if you're not accustomed to using warnings and strict).

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.

 print "$title[1]\n"; prints second element of @title, not of $title.
$title and @title is diferent variables in perl;