my $string = "Hello World";  
if ($string =~ /"Hello"/) { 
	print "Basic String contains: Hello\n"; 
}