Evaluated proc dolphin {} {regsub -all -nocase SOULJA [ascii souljaboy] DOLPHIN}