while ( $line=<DATA> ) {

}