%hash = ( brown=>1, fox=>2, quick=>3, the=>4 );;

$line = 'the quick brown fox';;

$line =~ s[\b([a-z]+)\b][ $hash{ $1 } ]ge;;

print $line;;
4 3 1 2