in reply to How can I get the file name

File::Basename does the job:
use File::Basename; my ($name,$path,$suffix) = fileparse('/home/image/office.iso','\..*');
cheers
snowcrash