#!/bin/perl

$QT=0;

%decades=qw(h  1970
            i  1980
            j  1990
            k  2000
            l  2010
            m  2020
           );

%digs=qw(0 0  1 1  2 2  3 3  4 4  5 5  6 6  7 7  8 8  9 9  10 a  11 b  12 c  13 d  14 e  15 f  16 g  17 h  18 i  19 j);

while (<>) {

  if (/QT_POS : Mass weighted QT summed over level\s*(\d+)\s*/) { 
    $QT++; 
    $dig=$digs{$1};
    print "$dig" 
  };

  if (/DUMPCTL: Opening new file yabkba.da(.)(.)(.)(.)0/) {

    $dec=$1;
    $y=$decades{$dec} + $2;
    $m=$3;
    $d=$4;

    print " [$QT]\n";
    $QT=0;

    print "$y $m $d: ";

  };
    
};