Select Code to Download

$ perl -E 'use File::Basename; say "|$_|" for fileparse("X.tgz", qw{.g
+z .tgz})'
|X.|
...
|X|
|./|
|.tgz|

$ perl -E 'use File::Basename; say "|$_|" for fileparse("X.tar.gz", qw
+{\.gz \.tgz \.tar\.gz})'
|X.tar|
...
|X|
|./|
|.tar.gz|

substr $filename, rindex($filename, ".") + 1 || length $filename

$ perl -E '
    say "oldfile\t ext \tnewfile";
...
Z       ||      edddd
.       ||      edddd
..      ||      edddd