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

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

    return;
}