つか要求にたいして全く間違ってるだろ、679は。
それにまともなunixerは拡張子外すくらいでperl使わないし、
シェル変数の扱いも迂闊。

unixerにみせかけたwin厨の出鱈目回答だな。