[monalin crusader]

in perl for strings instead of == use this

if($class =~ /warrior/i){insert crap here}