Help for this page
#!/usr/bin/env perl -l ... $string =~ s/$re/$lookup{$1}/g; print $string;
www "999" xxx "0 1210" yyy "500" zzz "0 988" www "999" xxx "1000" yyy "000" zzz "000"