http://qs1969.pair.com?node_id=35042


in reply to regexp's

How about:
use strict; my %hash=(); while (<>) { my ($num,$name)=(split/\s/,$_)[0,3]; $hash{$name}=$num; } foreach (keys %hash) { print "Key: $_\n"; print "Data: $hash{$_}\n"; }