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
45para 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