Select Code to Download

use strict;
use warnings;
...
   }g;

print qq{-->$_<--\n} for @arr;

-->one<--
-->two<--
-->not three<--
--> four<--
-->five <--