print( $text =~ s/this/that/ );