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