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