1use strict; 2 3my $count = 0; 4my $skip = 0; 5 6while(<DATA>) { 7 next if /^\s+/; 8 9 if ($skip) { 10 $skip=0; 11 next; 12 } 13 14 $count++ if /^&#/; 15 $count++ if /^&\w/; 16 # print "$count: "; 17 print; 18 if($count == 2) { 19 $count = 0; 20 print "\n"; 21 $skip = 1; 22 } 23 24 25} 26# print $count, "\n"; 27 28__DATA__ 29" 30" 31" 32quotation mark 33 34' 35' 36' 37apostrophe 38 39& 40& 41& 42ampersand 43 44< 45< 46< 47less-than 48 49> 50> 51> 52greater-than 53 54¡ 55¡ 56¡ 57inverted exclamation mark 58 59¢ 60¢ 61¢ 62cent 63 64£ 65£ 66£ 67pound 68 69¤ 70¤ 71¤ 72currency 73 74¥ 75¥ 76¥ 77yen 78 79¦ 80¦ 81¦ 82broken vertical bar 83 84§ 85§ 86§ 87section 88 89¨ 90¨ 91¨ 92spacing diaeresis 93 94© 95© 96© 97copyright 98 99ª 100ª 101ª 102feminine ordinal indicator 103 104« 105« 106« 107angle quotation mark (left) 108 109¬ 110¬ 111¬ 112negation 113 114­ 115­ 116soft hyphen 117 118® 119® 120® 121registered trademark 122 123¯ 124¯ 125¯ 126spacing macron 127 128° 129° 130° 131degree 132 133± 134± 135± 136plus-or-minus 137 138² 139² 140² 141superscript 2 142 143³ 144³ 145³ 146superscript 3 147 148´ 149´ 150´ 151spacing acute 152 153µ 154µ 155µ 156micro 157 158¶ 159¶ 160¶ 161paragraph 162 163· 164· 165· 166middle dot 167 168¸ 169¸ 170¸ 171spacing cedilla 172 173¹ 174¹ 175¹ 176superscript 1 177 178º 179º 180º 181masculine ordinal indicator 182 183» 184» 185» 186angle quotation mark (right) 187 188¼ 189¼ 190¼ 191fraction 1/4 192 193½ 194½ 195½ 196fraction 1/2 197 198¾ 199¾ 200¾ 201fraction 3/4 202 203¿ 204¿ 205¿ 206inverted question mark 207 208× 209× 210× 211multiplication 212 213÷ 214÷ 215÷ 216division 217 218∀ 219∀ 220for all 221 222∂ 223∂ 224∂ 225part 226 227∏ 228∏ 229∏ 230prod 231 232∑ 233∑ 234∑ 235sum 236 237− 238− 239− 240minus 241 242∞ 243∞ 244∞ 245infinity 246 247∩ 248∩ 249∩ 250cap 251 252∫ 253∫ 254∫ 255integral 256 257≈ 258≈ 259≈ 260almost equal 261 262≠ 263≠ 264≠ 265not equal 266≡ 267≡ 268≡ 269equivalent 270≤ 271≤ 272≤ 273less or equal 274≥ 275≥ 276≥ 277greater or equal 278 279 280Α 281Α 282Α 283Alpha 284 285Β 286Β 287Β 288Beta 289 290Γ 291Γ 292Γ 293Gamma 294 295Δ 296Δ 297Δ 298Delta 299 300Ε 301Ε 302Ε 303Epsilon 304 305Ζ 306Ζ 307Ζ 308Zeta 309 310Η 311Η 312Η 313Eta 314 315Θ 316Θ 317Θ 318Theta 319 320Ι 321Ι 322Ι 323Iota 324 325Κ 326Κ 327Κ 328Kappa 329 330Λ 331Λ 332Λ 333Lambda 334 335Μ 336Μ 337Μ 338Mu 339 340Ν 341Ν 342Ν 343Nu 344 345Ξ 346Ξ 347Ξ 348Xi 349 350Ο 351Ο 352Ο 353Omicron 354 355Π 356Π 357Π 358Pi 359 360Ρ 361Ρ 362Ρ 363Rho 364 365Σ 366Σ 367Σ 368Sigma 369 370Τ 371Τ 372Τ 373Tau 374 375Υ 376Υ 377Υ 378Upsilon 379 380Φ 381Φ 382Φ 383Phi 384 385Χ 386Χ 387Χ 388Chi 389 390Ψ 391Ψ 392Ψ 393Psi 394 395Ω 396Ω 397Ω 398Omega 399 400α 401α 402α 403alpha 404 405β 406β 407β 408beta 409 410γ 411γ 412γ 413gamma 414 415δ 416δ 417δ 418delta 419 420ε 421ε 422ε 423epsilon 424 425ζ 426ζ 427ζ 428zeta 429 430η 431η 432η 433eta 434 435θ 436θ 437θ 438theta 439 440ι 441ι 442ι 443iota 444 445κ 446κ 447κ 448kappa 449 450λ 451λ 452λ 453lambda 454 455μ 456μ 457μ 458mu 459ν 460ν 461ν 462nu 463ξ 464ξ 465ξ 466xi 467ο 468ο 469ο 470omicron 471π 472π 473π 474pi 475ρ 476ρ 477ρ 478rho 479ς 480ς 481ς 482sigmaf 483σ 484σ 485σ 486sigma 487τ 488τ 489τ 490tau 491υ 492υ 493υ 494upsilon 495φ 496φ 497φ 498phi 499χ 500χ 501χ 502chi 503ψ 504ψ 505ψ 506psi 507ω 508ω 509ω 510omega 511 512Œ 513Œ 514Œ 515capital ligature OE 516œ 517œ 518œ 519small ligature oe 520Š 521Š 522Š 523capital S with caron 524š 525š 526š 527small S with caron 528Ÿ 529Ÿ 530Ÿ 531capital Y with diaeres 532ƒ 533ƒ 534ƒ 535f with hook 536ˆ 537ˆ 538ˆ 539modifier letter circumflex accent 540˜ 541˜ 542˜ 543small tilde 544 545‌ 546‌ 547zero width non-joiner 548 549‍ 550‍ 551zero width joiner 552 553‎ 554‎ 555left-to-right mark 556 557‏ 558‏ 559right-to-left mark 560 561– 562– 563– 564en dash 565 566— 567— 568— 569em dash 570 571‘ 572‘ 573‘ 574left single quotation mark 575 576’ 577’ 578’ 579right single quotation mark 580 581‚ 582‚ 583‚ 584single low-9 quotation mark 585 586“ 587“ 588“ 589left double quotation mark 590 591” 592” 593” 594right double quotation mark 595 596„ 597„ 598„ 599double low-9 quotation mark 600 601† 602† 603† 604dagger 605 606‡ 607‡ 608‡ 609double dagger 610 611• 612• 613• 614bullet 615 616… 617… 618… 619horizontal ellipsis 620 621‰ 622‰ 623‰ 624per mille 625 626′ 627′ 628′ 629minutes 630 631″ 632″ 633″ 634seconds 635 636‹ 637‹ 638‹ 639single left angle quotation 640 641› 642› 643› 644single right angle quotation 645 646‾ 647‾ 648‾ 649overline 650 651€ 652€ 653€ 654euro 655 656™ 657™ 658™ 659trademark 660 661← 662← 663← 664left arrow 665 666↑ 667↑ 668↑ 669up arrow 670 671→ 672→ 673→ 674right arrow 675 676↓ 677↓ 678↓ 679down arrow 680 681↔ 682↔ 683↔ 684left right arrow 685 686◊ 687◊ 688◊ 689lozenge 690 691♠ 692♠ 693♠ 694spade 695 696♣ 697♣ 698♣ 699club 700 701♥ 702♥ 703♥ 704heart 705 706♦ 707♦ 708♦ 709diamond 710 711 712