Select Code to Download

use strict;
use warnings;
...
if ($string =~ m{bar}g) {
    print "bar\n";
}

bar
bar

bar
foo
bar