while(<R>){
		if(/<\/form>/){
			s/(action=\")\.\.\//$1/;
		}
		print;

なあ(;´Д`)この処理って何やってるんだろうな？