This is easy - do something like while($line = <STDIN>) { chomp $line; last unless $line =~ /\d/; push @income, $line }. The idea is you read data until something "different" happens. My example terminates when the user enters a line without any numbers in it. You should pick something more appropriate to your own use.

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;
[download]