my $text = "Am 09.06.2009 ist Donald Duck 75 Jahre alt geworden.";
if ($text =~ m/(\d{2}).(\d{2}).(\d{4})/) 
  {
  print "Datum $1 - $2 - $3 gefunden";
  } 
else 
  {
  print "Text mit Datum nicht gefunden";
  }
  
my $variable = "Dies ist ein <b>Text</b> mit <i>HTML</i>-Tags";
$variable=~ s/<[^>]*>//g;
print "Nach Ersetzung: $variable\n";