#! /usr/bin/env perl

open(FD, "$ARGV[0]");
while($line = <FD>){
  chomp($line);
  $ID = (split(/\t/, $line))[0];
  $AC = (split(/\t/, $line))[1];
  $len = length($line);
  printf STDOUT "+%d,%d:%s->%s\n", length($ID), $len, $ID, $line;
=pod
  if( $ID ne $AC ){
    printf STDOUT "+%d,%d:%s->%s\n", length($AC), $len, $AC, $line;
  }
=cut
}
print "\n";
close(FD);