$line =~ substr( $line, -2, 2, '' ) . "\n"