$ro->insert(end => join "", map { do { (my $s = $_ ) =~ s/^(\d\d)\d*/$1%/ . "\n"; $s },
    @matches[0 .. $bestcount - 1] });

#RESULT:
#Useless use of concatenation (.) or string in void context at KJV_VerseMatcher_PM_Script.pl line 88.
#syntax error at KJV_VerseMatcher_PM_Script.pl line 89, near "})"