use Data::Dumper; my %hash; while ($line = ) { $line =~ /province(\w+)\=(.+)/; $hash{$1} = $2; } print Dumper \%hash; __DATA__ provinceAH=安徽 provinceBJ=北京 provinceFJ=福建 provinceGS=甘肃 provinceGD=广东 provinceGX=广西 provinceGZ=贵州 provinceHE=河北 provinceHA=河南 provinceHL=黑龙江 provinceHB=湖北 provinceHN=湖南 provinceJL=吉林 provinceJS=江苏 provinceJX=江西 provinceLN=辽宁 provinceNM=内蒙 provinceNX=宁夏 provinceQH=青海 provinceSD=山东 provinceSX=山西 provinceSN=陕西 provinceSH=上海 provinceSC=四川 provinceTJ=天津 provinceXZ=西藏 provinceXJ=新疆 provinceYN=云南 provinceZJ=浙江 provinceCQ=重庆 provinceMO=澳门 provinceHK=香港 provinceTW=台湾 provinceSX=山西 provinceHB=湖北 provinceHN=湖南 provinceHA=河南 provinceHI=海南 provinceunknow=未知 provinceUN=未知