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