s/^(.*\.).*(...)\z/$1$2/s;