w $main::{"_<".(caller 2)[1]}[(caller 2)[2]] =~ /\bprint\b/