#!/usr/bin/perl -an
# schalkwyk, aug 2017

$F[0] = 'chr' . $F[0] unless ($F[0] eq 'MT');
print join "\t", @F[0..2];
print "\t", eval join '+', @F[3..$#F];
print "\n";