https://www.manu.co.in/change-content-order-using-regular-expression-in-perl/