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