Re^2: String Comparison & Equivalence Challenge

[Polyglot]

I took several minutes to install Tk.pm so that I could run this. I was really curious what it actually accomplished in just 2.6 seconds--or if, perhaps, it would be much different on my computer. Alas, I have perl 5.12, which is not compatible with the s///r pragma. I tried a couple of things to work around that, but feel like I'm working in the dark here, never having entirely grasped map or what it does. ...at the risk of appearing foolish, here's what I tried for that line that didn't work.

  $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_Ver
+seMatcher_PM_Script.pl line 88.
#syntax error at KJV_VerseMatcher_PM_Script.pl line 89, near "})"

[AnomalousMonk]

$ro->insert(end => join "", map s/^(\d\d)\d*/$1%/r . "\n", @matches[...] );

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

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


Update:

... the s///r pragma.

NB: s///r is not a pragma. /r is a modifier (update: available from Perl version 5.14 on) of the s/// operator.

[Polyglot]

Thank you very much! The script works with that adjustment. BTW, "pragma" is not even in my dictionary--so I'm not able to easily verify its usage. I guess I'm a bit vocabulary challenged today.

[AnomalousMonk]

See pragma.