Як видалити "." З імені файлу в Perl?

Я, наприклад, /(\.[^.]+)$/в Perl читаю розширення файлу, наприклад Text.txt. Як я можу видалити .так, що вихід буде Texttxt?

Група збігів /(…)/містить все, що знаходиться в дужках. Якщо ви не хочете, щоб точка бути частиною його, а потім поставити його поза дужок: /\.([^.]+)$/.

#!/usr/bin/env perl

use strict;
use warnings;

my $filename = 'Test.txt';
$filename =~ s/(.*)\.([^.]+)$/$1$2/;
#               ^^    ^^^^^
#               $1     $2
print "filename: '$filename'\n";

# prints "Testtxt"