or download this
$ro->insert(end => join "", map { do { (my $s = $_ ) =~ s/^(\d\d)\d*
+/$1%/ . "\n"; $s },
@matches[0 .. $bestcount - 1] });
...
#Useless use of concatenation (.) or string in void context at KJV_Ver
+seMatcher_PM_Script.pl line 88.
#syntax error at KJV_VerseMatcher_PM_Script.pl line 89, near "})"