Select Code to Download

if ($str =~ /some_re/){
  do something ...
}

foreach (qw/one one.five two two.one two.ten 
            two.ten.12 three three.nine four five/){
...
                     -image => $mw->Getimage(folder));
   }
}