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