Select Code to Download

my $name = 'filename.dqhfhqlkGif';
substr $name, (index $name, '.') + 1, -3, '';
print $name;