in reply to Getting a base name

Your dot is matching anything, you wanted to match a dot explicitly 
$base = (split(/\./,$fname))[0];

[download]
UPDATE: Too slow, that's probably enough replies now :-)
---
my name's not Keith, and I'm not reasonable.

In Section Seekers of Perl Wisdom