$count = 0;
    s{((whom?)ever)}{
		++$count == 5   	# is it the 5th?
	    	    ? "${2}soever"	# yes, swap
	    	    : $1		# renege and leave it there
        }ige;