undef $/;
my $file = <DATA>;
$file =~ s/^\@:\d{10,}:(?:\d{10,})?:1\n(.*?)
          (^\@:\d{10,}:(?:\d{10,})?:1\n\1)/$2/msxg;
print $file;