sub kco3 ($rstr, $out_fh = *STDOUT) {
    my $str = $$rstr;
    my $re = qr{(?m:^(A|B)(.+)$)};

     while ($str =~ /$re/go){
        $out_fh->say("$1 kco2 $2") ;
     }

    return;
}