フルパス名から拡張子を抜き出すのて
$kakutyousi=~/\.([a-zA-Z]$)/;でいい