while(my $string_parser = <IN>) {