while ( $string_parser = <IN> ) {
    print "$string_parser";
    # ...
}