Como atribuir o resultado de uma correspondência de regex a uma nova variável, em uma única linh

Quero corresponder e atribuir a uma variável em apenas uma linha:

my $abspath='/var/ftp/path/to/file.txt';

$abspath =~ #/var/ftp/(.*)$#;
my $relpath=$1;

Tenho certeza que deve ser fáci