local $_ = $_;
s/[1-4]\K(?=[4-9])/ /;
tr/1-9/↙←↖↑↗→↘↓/;
- s{(.)(?=.)}{<span style="position:absolute">$1</span>}
+ s{(\S)(?=.)}{<span style="position:absolute">$1</span>}
or s/^/<span>/ and $_ .= '</span>';
$_
}
qw(
- 1 2 3 4 5 6 7 21 31 46 14 15 16 17 23
+ 1 2 3 4 5 6 7 21 31 46 14 51 16 17 23
24 25 26 27 34 35 47 56 57 36 67
)
],