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

##</code><code>##

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