use strict; my $test = 'The brown fox int(10) over float(200) fence.'; my %dict = ( 'brown' => 'yellow', /int(\d+)/ => 'int', /float(\d+)/ => 'float', ); use Data::Dumper; warn Dumper \%dict; __END__ $VAR1 = { 'int' => 'float', 'brown' => 'yellow' };