my $type    = 'IMB';
my $version = 'V1';
s/^($type,\d+,$version\s+,)(\d+),\K
  (?:.*\n)+
  \1\d+,(\d+).*/$3/gmx;