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

##</code><code>##

my $string = "\"Hello\" World";

my $string = '"Hello" World';

my $string = q{"Hello" World};

my $string = qq{"Hello" World};

##</code><code>##

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