$s1='<x><chapter>\s*<chapnum>1</chapnum>';
$s2='<chapter>\s*<chapnum>1A</chapnum>';

$str1 =~s#($s1)(.*?)<x>?=($s2)#$1$2$3#gsi;