Select Code to Download

use strict;
use warnings;
...

@r_words = ();

print "Example 2:\n\n";

...
{
    print $_,"\n";
}