$_ = "hello";

print "Hello\n" if /^h/ && /o$/;
print "Hello agian\n" if $_ =~ /^h/ && /o$/;
print "Hello a third time\n" if $_ =~ /^h/ && $_ =~ /o$/;

$_ = "aeiou";
print "it has all the vowels\n" if (/a/i && /e/i && /i/i && /o/i && /u/i);
print "it still has all the vowels\n" if ($_ =~ /a/i && $_ =~ /e/i && $_ =~ /i/i && $_ =~ /o/i &&  $_ =~ /u/i);