my $filename = "ich.bin.eine.datei.txt";

sub get_fileextension
{
   my ($file) = @_;

   return pop split(/\./, $file);
}

print get_fileextension($filename);