my $data = "buy 1/23/01 100 12.625 50 25.25 \n buy 09/1/01 100 12.625 50 25.25 \n buy 10/23/01 100 12.625 50 25.25 \n buy 10/25/01 100 12.625 50 25.25 \n";