my ($file_only) = $imagename =~ m/(?:\/|\\)([^\/\\]+)$/;

das sollte dir in $file_only nur den dateinamen bringen. lässt sich natürlich auch nur für die endung anpassen...

my ($ext_only) = $imagename =~ m/\.([^.]+)$/;