正则替换

想把 Desgin Raku 中的 pod/html 转为 Markdown 格式, Raku 的 pod2markdown 不能用, 只能下载 html 格式的了, 然后用 pandoc test.html -o result.markdown 转换了, 但是也不理想, 里面还有很多 html 标签, 写个脚本批量替换下吧。
token 中的空白要显式地使用 s、h、t 等表示, rule 中 :sigspace 是开启的。程序很丑, 仅仅是记录一下。

use v6;

my rule r1 {'<'span id='"'line_\d+'"''>''<''/'span'>' '<'span id='"'line_\d+'"''>''<''/'span'>'( '<'span)?$}
my rule r2 {id='"'line_d+'"''>''<''/'span'>' '<'span id='"'line_d+'"''>''<''/'span'>'( '<'span)?$}
my rule r3 {^id='"'line_d+'"''>''<''/'span'>'$}
my rule r4 {'<'div class='"'smartlink'"''>'}
my rule r5 {'<''/'div'>'}
my rule r6 {'<'div class='"'indexgroup'"''>'}
my rule r7 {'<'span id='"'__top'"''>''<''/'span'>'}
my token r8 {^  s* '<'span$}
my rule r9 {^id='"'line_d+'"''>''<''/'span'>' '<'span id='"'line_d+'"''>''<''/'span'>'$}
my rule r10 {id='"'line_d+'"''>''<''/'span'>' '<'span id='"'line_d+'"''>''<''/'span'>'(s'<'span)?$}
my token r11 {^ s* id='"'line_d+'"''>''<''/'span'>'}
my token r12 {^ s* '<' span s $}

for dir(test => /.markdown$/) -> $file  {
    my $f = $file;
    $f ~~ s/.markdown//;
    my @lines = $file.lines;
    my $out = open $f ~ ".md", :w;
    for @lines -> $line is rw {
        $line ~~ s/<r1>//;
        $line ~~ s/<r2>//;
        $line ~~ s/<r3>//;
        $line ~~ s/<r4>//;
        $line ~~ s/<r5>//;
        $line ~~ s/<r6>//;
        $line ~~ s/<r7>//;
        $line ~~ s/<r8>//;
        $line ~~ s/<r9>//;
        $line ~~ s/<r10>//;
        $line ~~ s/<r11>//;
        $line ~~ s/<r12>//;
        $out.say($line);
    }
    $out.close;
}