Select Code to Download

#!/usr/bin/perl
use warnings;
...
$text =~ s/No\. \K(\d+)/join "", "\\", map num2en($_), split m{}, $1/g
+e;

print $text;  # abc No. \threefourseven xyz