$s = 'the quick brown fox jumps over the lazy dog';;
print time; 
@words = $s =~ m[(.*) (.*) (.*) (.*) (.*) (.*) (.*) (.*) (.*)]; 
print time;;

1294330312.674
1294330312.67453