while ( $line=~//ig ) {