Select Code to Download

    $extension = (split(/\\/,(split(/\./,$filename))[-1]))[0];
    print "$extension\n";

    ($extension) = map{ split /\\/,$_,2 } (split(/\./,$filename))[-1];
    print "$extension\n";