$regex = 's!<h2>([^<]+)</h2>!<h1>$1</h1>!g';

$s =~ $regex;