Select Code to Download

           Changes in Perl code using RE engine:

...
                   Unneeded copying of matched-against string removed;
                   Only matched part of the string is copying if $` $'
+ were not 
seen;

'string' =~ /ri/;
print eval <STDIN>;