perl -pi.old -e 's~(/\w+)(\d{8})~/$2$1$2~' filename