$find = Swish->new(
  "'",  # ignore beginning
  "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'",
  "'",  # ignore ending

   'breath every',

  5,  # words to highlight BEFORE
  5,  # words to highlight AFTER
);
de>

##</code><code>##

$find->stream(\*DATA, sub { " ... $_[1]<b>$_[2]</b>$_[3] ..." });
while (my $t = $find->match) { print "[[$t]]\n" }

##</code><code>##

keywords are: <breath> <every> 

[[ ... With <b>every</b> form you come
You surprise ...]]         
[[ ... me, hypnotize me       << shouldn't be a break here
With <b>every</b> ...]]
[[ ... <b>breath</b> I take   << or here
You're depriving, suffocating ...]]
[[, choking                   << here's the rest of the text?

Now the time has come when I tell myself
There's nothing more I can take
Then you show me
Does it matter right now
If I'm already numb
That's what you do to control me
]]

##</code><code>##

With <b>every</b> form you come ...
hypnotize me
With <b>every</b> <b>breath</b> I take
You're ...