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