#!/bin/csh
set pwd = `pwd`
set outdir = `echo $pwd | sed 's/06/40/'`
foreach file (  new*/p_apsnew* )
 set dir = `echo $file |  awk  -F/ '{print $1}' | sed 's/new//'`
 set name = `basename $file`
 set out = `echo $name | sed 's/new//g'`
 echo mv $file $outdir/$out
 mv $file $outdir/$out
end