$t="Anfang und Ende"; if ($t=~ /^Anfang/){print "wahr\n";} else {print "falsch\n";} if ($t=~ /^Ende/){print "wahr\n";} else {print "falsch\n";} if ($t=~ /Ende$/){print "wahr\n";} else {print "falsch\n";} if ($t=~ /Anfang$/){print "wahr\n";} else {print "falsch\n";} |