while(my $line=<DATA>){
   # stuff goes here. 
}