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