use strict;
use File::Basename;

my $file = '/ftp/dest/id.ext';

my ($name, $path, $suffix);

my @suffixes = ('.ext'); # Extra extensions can be added to the list.

($name, $path, $suffix) = fileparse($file, @suffixes);