perl -le'for (<*.mas>) {$o=$_;s/mas$/html/; rename $o,$_ }'