while(<DATA>){
  ...
  my $line = $_;
  ...
}