>>677

#! /bin/sh

for x in *;do
FILE=`perl -ne 'if(/$(.+?)\.txt$/){print $1;}'`

if [ $FILE != "" ];then
touch $FILE
fi

done