if(m/(^OBX\|)([^\|]*\|){2}([^\^]*)(.*$)/){
    my $pre = $1 . $2;
    my $read = $3;
    my $post = $4;
    $read =~ s/[A-Z]/U$&/g;
    $read =~ s/[a-z]/L$&/g;
    $_ = $pre . $read . $post;
  }