#!/usr/bin/perl -w
use strict;
use Benchmark;

# regex-testi.pl - testaa erilaisten vaihtoehtoisten säännöllisten
# lausekkeitten tehokkuutta

my @w = `cat /usr/share/dict/words`;

Benchmark::cmpthese ( -5, {
			   'Laiska' => '/^../,   $a = $& for @w',
			   'Viisas' => '/^(..)/, $a = $1 for @w'
			  } );