$t="test"; if ($t=~ /Test/i){print "wahr";} |
$t="Männer"; if ($t=~ /MÄNNER/i){print "wahr";} else {print "falsch";} |
$t="Männer"; if ($t=~ /m[äÄ]NNER/i){print "wahr";} |
$t="Willkommen in Perl 5"; if ($t=~ /[0-9]/){print "wahr. Gefunden wurde $&";} |
$t="Willkommen in Perl 5"; if ($t=~ /[^0-9]/){print "Alarm. Gefunden wurde $&";} |
$t="Willkommen in Perl 5"; if ($t=~ /[^\d]/){print "Alarm. Gefunden wurde $&";} |