my $value = "/home/image/office.iso";
my($fullname, $filename) = $value =~ m< / ( ( [^/]+ ) \. .* ) \z >x;

print "fullname - $fullname\nfilename - $filename\n";

__output__

fullname - office.iso
filename - office