The problem is that while(<IN>) reads a line of the file (and puts it into $_), and $string_parser=<IN> also reads a line from the file. Try this instead:

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