This is how I would do it.
on $*:TEXT:/^!(youtube|google)(.+?)/Si:#: msg $chan $+(3Your $iif($regml(1) == youtube,Youtube,Google) Search: $$2-,: $iif($regml(1) == youtube,http://www.youtube.com/results?search_query=,http://www.google.com/search?q=),$replace($regsubex($2-,/([^\w\s])/Sg,$+(%,$base($asc(\t),10,16,2))),$chr(32),$chr(43)))