"tar.bz2"=>do { $_=FORMAT_TAR; s/xf/xjf/; $_; },
"tar.bz" =>"tar.bz2",
"tbz" =>"tar.bz",
+ "tar.xz" =>do { $_=FORMAT_TAR; s/xf/xJf/; $_; },
+ "txz" =>do { $_=FORMAT_TAR; s/xf/xJf/; $_; },
+ "msi" =>'cabextract -q $pathname',
};
die "Syntax: $0 <pathname((".join("|",map(".$_",sort keys %{+FORMATS})).")|=<ext>)>..."