sub Brain {while (1) {if (0) {die;}}} $hero_of_movie =~ /^(meat)+$/; ## This one is a horrible pun: print " "; print " "; print " "; print " "; print " "; @fate = qw(arms legs hands feet); $manos = $fate[2];