#!/bin/csh

foreach file (*.ppt)

set prefix = `echo $file | awk '{print substr($1,1,22)}'`
set mth = `echo $file | awk '{print substr($1,23,2)}'`
set day = `echo $file | awk '{print substr($1,26,2)}'`
set year = `echo $file | awk '{print substr($1,29,2)}'`

mv $file $prefix"20"$year$mth$day".ppt"

end