1use strict; 2 3 4 5while(<DATA>) { 6 chomp; 7 my($icon, $num, $character) = split; 8 next if !$icon || !$num || ! $character; 9# $icon = trim($icon); 10# $num = trim($num); 11# $character=trim($character); 12 print "$icon\n$num\n$character\n\n"; 13} 14 15sub trim { 16 my $str = shift; 17 $str =~ s/^\s+//; 18 $str =~ s/\s+$//; 19 return $str; 20} 21 22__DATA__ 23 nbsp 160 24¡ iexcl 161 25¢ cent 162 26£ pound 163 27¤ curren 164 28¥ yen 165 29¦ brvbar 166 30§ sect 167 31¨ uml 168 32© copy 169 33ª ordf 170 34« laquo 171 35¬ not 172 36 shy 173 37® reg 174 38¯ macr 175 39° deg 176 40± plusmn 177 41² sup2 178 42³ sup3 179 43´ acute 180 44µ micro 181 45¶ para 182 46· middot 183 47¸ cedil 184 48¹ sup1 185 49º ordm 186 50» raquo 187 51¼ frac14 188 52½ frac12 189 53¾ frac34 190 54¿ iquest 191 55à agrave 192 56á aacute 193 57â acirc 194 58ã atilde 195 59Ä Auml 196 60å aring 197 61æ aelig 198 62ç ccedil 199 63è egrave 200 64é eacute 201 65ê ecirc 202 66ë euml 203 67ì igrave 204 68í iacute 205 69î icirc 206 70ï iuml 207 71ð eth 208 72ñ ntilde 209 73ò ograve 210 74ó oacute 211 75ô ocirc 212 76õ otilde 213 77Ö Ouml 214 78× times 215 79ø oslash 216 80ù ugrave 217 81ú uacute 218 82û ucirc 219 83Ü Uuml 220 84ý yacute 221 85þ thorn 222 86ß szlig 223 87à agrave 224 88á aacute 225 89â acirc 226 90ã atilde 227 91ä auml 228 92å aring 229 93æ aelig 230 94ç ccedil 231 95è egrave 232 96é eacute 233 97ê ecirc 234 98ë euml 235 99ì igrave 236 100í iacute 237 101î icirc 238 102ï iuml 239 103ð eth 240 104ñ ntilde 241 105ò ograve 242 106ó oacute 243 107ô ocirc 244 108õ otilde 245 109ö ouml 246 110÷ divide 247 111ø oslash 248 112ù ugrave 249 113ú uacute 250 114û ucirc 251 115ü uuml 252 116ý yacute 253 117þ thorn 254 118ÿ yuml 255 119" quot 34 120& amp 38 121< lt 60 122> gt 62 123œ oelig 338 124œ oelig 339 125š scaron 352 126š scaron 353 127ÿ yuml 376 128ˆ circ 710 129˜ tilde 732 130 ensp 8194 131 emsp 8195 132 thinsp 8201 133– ndash 8211 134— mdash 8212 135‘ lsquo 8216 136’ rsquo 8217 137‚ sbquo 8218 138“ ldquo 8220 139” rdquo 8221 140„ bdquo 8222 141† dagger 8224 142† dagger 8225 143‰ permil 8240 144‹ lsaquo 8249 145› rsaquo 8250 146€ euro 8364 147ƒ fnof 402 148α alpha 913 149β beta 914 150γ gamma 915 151δ delta 916 152ε epsilon 917 153ζ zeta 918 154η eta 919 155θ theta 920 156ι iota 921 157κ kappa 922 158λ lambda 923 159μ mu 924 160ν nu 925 161ξ xi 926 162ο omicron 927 163π pi 928 164ρ rho 929 165σ sigma 931 166τ tau 932 167υ upsilon 933 168φ phi 934 169χ chi 935 170ψ psi 936 171ω omega 937 172α alpha 945 173β beta 946 174γ gamma 947 175δ delta 948 176ε epsilon 949 177ζ zeta 950 178η eta 951 179θ theta 952 180ι iota 953 181κ kappa 954 182λ lambda 955 183μ mu 956 184ν nu 957 185ξ xi 958 186ο omicron 959 187π pi 960 188ρ rho 961 189ς sigmaf 962 190σ sigma 963 191τ tau 964 192υ upsilon 965 193φ phi 966 194χ chi 967 195ψ psi 968 196ω omega 969 197• bull 8226 198… hellip 8230 199′ prime 8242 200′ prime 8243 201‾ oline 8254 202⁄ frasl 8260 203← larr 8592 204↑ uarr 8593 205→ rarr 8594 206↓ darr 8595 207↔ harr 8596 208← larr 8656 209↑ uarr 8657 210→ rarr 8658 211↓ darr 8659 212↔ harr 8660 213∂ part 8706 214∏ prod 8719 215∑ sum 8721 216− minus 8722 217√ radic 8730 218∞ infin 8734 219∩ cap 8745 220∫ int 8747 221≈ asymp 8776 222≠ ne 8800 223≡ equiv 8801 224≤ le 8804 225≥ ge 8805 226◊ loz 9674 227♠ spades 9824 228♣ clubs 9827 229♥ hearts 9829 230♦ diams 9830 231 232