Select Code to Download

my $a = qq(foo bar foo bar foo bar foo bar foo bar);
$a =~ s/HELP HERE{4}.+/$1.../g; # <<< this is the problem
print $b;