Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    redo if $res;
}
close $fh;

ben@Jotunheim:/tmp$ ./pbvi unix.txt 
4C 69 6E 65 20 6F 6E 65 0A 4C 69 6E 65 20 74 77 6F 0A 4C 69     Line o
+ne.Line two.Li
6E 65 20 74 68 72 65 65 0A 4C 69 6E 65 20 66 6F 75 72 0A        ne thr
+ee.Line four.

ben@Jotunheim:/tmp$ ./pbvi windows.txt 
4C 69 6E 65 20 6F 6E 65 0D 0A 4C 69 6E 65 20 74 77 6F 0D 0A     Line o
+ne..Line two..
4C 69 6E 65 20 74 68 72 65 65 0D 0A 4C 69 6E 65 20 66 6F 75     Line t
+hree..Line fou
72 0D 0A                                                        r..