sub slurpie { local $/ ; return ; # contains whole thing } sub DATA_w_line_numbers { while () { print "$.) $_"; } }