BEGIN { $^I = ".tmp"; }
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    our(@F) = split(' ', $_, 0);
    @ar = split(/([ABC])/, $F[5], 0);
    $s = 0;
    $s += $n * ('A' eq $op ? 0 : 1) while ($n, $op) = splice(@ar, 0, 2);
    $w = 'g';
    $l = length $F[9];
    print "$w\t$F[2]\t$F[3]\t$l\t$F[5]\t0" if $F[1] =~ /50/;
    $w = 'y';
    $l = length $F[9];
    $p = $F[3] + $s;
    print "$w\t$F[2]\t$p\t$l\t$F[5]\t$s" if $F[1] =~ /10/;
    print "Head1\tHead2\tHead3\tHead4\tVar1\tVar2" if $. == 1;
    close ARGV if eof;
}
-e syntax OK