$regex1 = 'ttt';          # ganz einfache regulaere Ausdruecke
$regex2 = '926';

$string = "Betttruhe";    # gruseliges Wort (neue deut. Rechtschreibung)
$_      = "Bettruhe";     # nicht so gruselig
$pi     = 3.1415926535897932384626433832795;  

# $string untersuchen
if ($string =~ m/$regex1/)
  { print "Schauder!\n"; }
else
  { print "Gute Nacht!\n"; }

$status = $string =~ m/$regex1/;
print "Status: $status\n";

# default $_ untersuchen
if (m/$regex1/)
  { print "Schauder!\n"; }
else
  { print "Gute Nacht!\n"; }
  
                          # sprintf liefert: "3.1415926536"
if (sprintf("%12.10f\n",$pi) =~ m/$regex2/)
  { print "$regex2 ist drin!\n"; }

# Suche nach Neunen, 'g' als Modifizierer
@treffer = $pi =~ m/9/g;
print join(", ",@treffer), "\n";

# geht auch "perlischer":
print join(", ", $pi =~ m/9/g), "\n";