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