+ if ( $line eq $last_line ) {
+ print ":" && warn "# $y repeat previous line\n";
+ } else {
+ my $hex = unpack('H*', $line);
+ if ( $compress ) {
+# $last_line = $line;
+ $hex =~ s/0+$/,/ && warn "# $y fill 0 to right\n";
+ $hex =~ s/F+$/!/i && warn "# $y fill 1 to right\n";
+ $hex =~ s/((.)\2+)/zpl_compress($1)/egs;
+ }
+ print $hex;
+ }