#!/usr/local/bin/perl -w

use strict;

use Benchmark;


timethese(-2,
	  { default =>
	    sub {
	      $_="the quick brown fox";
	      s/brown/black/
	    },
	    my =>
	    sub {
	      my $x="the quick brown fox";
	      $x =~ s/brown/black/
	    }
	  });