#!perl -w

my $str = '';
  
  open( FH, "<test.htm") or die("Cannot open file");
  while(<FH>)
  {
    $str .= $_;
  }
  close(FH);

  $length = length($str);
  
  print "Str-Laenge: $length\n";

    # start timer
    $start = time();

    # perform a math operation 200000 times
    for ($x=0; $x<=1000000; $x++)
    {
      ### Operations
      &test2;
    }

    # end timer
    $end = time();

    # report
    print "Time taken was ", ($end - $start), " seconds"; 





sub test1()
{
    my $start = index($str, "<title>");
    my $ende = index($str, "</title>");


    $ende = $ende - $start - 7;
    $start += 7;

    my $title = substr($str, $start, $ende);
}

sub test2()
{
  if($str =~ /<title>(.*)<\/title>/i ) 
  {
    my $title = $1;

  }
}