undef $/;
$regel = <FH_input>