$text =~ s/print.*a_string//g;

##</code><code>##

$text =~ s/print.*?a_string//g;