sub{print "entered $_\n" if /^47$/}->() while <STDIN>;