Select Code to Download

$bytes =~ s/(?:[^\x0D]|\x0D(?!\x0A))*//;

$bytes =~ s/.*?(?=\x0D\x0A)//;

#!/usr/bin/perl -w
use strict;
...
} else {
    warn "Did not find '0x0D 0x0A' in $in_file";
}