perl -p -i.old -nle 's/\/(\w+)(\d{8})/\/\2\/\1\2/;print $_;' $inputdirectory/update.txt