10: my ($prick, $tickle, $wrong);
        my ($bleed, $laugh, $revenge) = undef;

    13: if ($prick)
        { $bleed = 1; }

    22: warn "bleed" if /prick/;
        warn "laugh" if /tickle/;

 30878:   "pricewaterhousecooper  2054",
          "prick  3494",
          "pride and prejudice movie      1708",

   306:   "warmed and cooled by the same winter and summer, as" +
          "a Christian is? If you prick us, do we not bleed?" +
          "if you tickle us, do we not laugh? if you poison" +

  8031: s(100944633,1,'perforation',n,3,0).
        s(100944789,1,'prick',n,4,0).
        s(100944789,2,'pricking',n,1,0).
        s(100944965,1,'venipuncture',n,1,0).

   410: 'bandies', 'beefers', 'cameramen', 'appalled', 'Ionian', 'butterball',
        'Portland', 'pleaded', 'admiringly', 'pricks', 'hearty', 'corer',
        'deliverable', 'accountably', 'mentors', 'accorded',

  1692:   my $data1 = 'By the pricking of my thumbs, something wicked this way comes';
          my $data2 = 'A horse! A horse! My kingdom for a horse!';

  1701:     ...By the pricking of ... A horse!...
        

  1713:   ...By the pricking of ... A horse!...
          ...my thumbs,         ... A horse!...

   226: ...  {\n    \"tag\": "unmetallurgical",\n    \"popularity\": 902456\n  },\n  {\n    \"tag\": "prickled",\n    \"popularity\": 889174\n  },\n  {\n  ...

   543: 'bandies', 'beefers', 'cameramen', 'appalled', 'Ionian', 'butterball',
        'Portland', 'pleaded', 'admiringly', 'pricks', 'hearty', 'corer',
        'deliverable', 'accountably', 'mentors', 'accorded',

   507: 'bandies', 'beefers', 'cameramen', 'appalled', 'Ionian', 'butterball',
        'Portland', 'pleaded', 'admiringly', 'pricks', 'hearty', 'corer',
        'deliverable', 'accountably', 'mentors', 'accorded',

   502: 'bandies', 'beefers', 'cameramen', 'appalled', 'Ionian', 'butterball',
        'Portland', 'pleaded', 'admiringly', 'pricks', 'hearty', 'corer',
        'deliverable', 'accountably', 'mentors', 'accorded',