on $*:text:/(\!|\?)/S:#:{ msg # $replace($regml(1),!,Don't get too excited!,?,Have you tried www.google.com yet?) }
Or you could use:
on $*:text:/([!?])/S:#:{