perl -pi -w -e 's/include "asio\//include "/g;' *

for a in $(ls -d */ | cut -f1 -d'/')
do
  pushd $a
    perl -pi -w -e "s/include \"asio\/$a\//include \"/g;" *
    perl -pi -w -e "s/include \"asio\//include \"..\//g;" *

	for b in $(ls -d */ | cut -f1 -d'/')
	do
	  pushd $b
		perl -pi -w -e "s/include \"asio\/$a\/$b\//include \"/g;" *
		perl -pi -w -e "s/include \"asio\/$a\//include \"..\//g;" *
		perl -pi -w -e "s/include \"asio\//include \"..\/..\//g;" *

		for c in $(ls -d */ | cut -f1 -d'/')
		do
		  pushd $e
			perl -pi -w -e "s/include \"asio\/$a\/$b\/$c\//include \"/g;" *
			perl -pi -w -e "s/include \"asio\/$a\/$b\//include \"..\//g;" *
			perl -pi -w -e "s/include \"asio\/$a\//include \"..\/..\//g;" *
			perl -pi -w -e "s/include \"asio\//include \"..\/..\/..\//g;" *
		  popd
		done
	  popd
	done
  popd
done