my($regex) = ($_ =~ /This is/g)