@yra = reverse map { scalar reverse $_ } @ary;

##</code><code>##

- if ($str =~ /\bdIonly:\b(.*?)\bworkset\b\\(\\(/g);
+ if ($str =~ /\bdIonly:\b(.*?)\bworkset\b\(\(/g);