Select Code to Download

#!/usr/bin/perl
use strict;
...
not in this line
in this line, but nothing following coucou
coucou once, coucou twice, coucou three times - what should be done wi
+th this line?

m/.*$wanted(.*)$/