open INPUT, "< $filename" or die "Cannot open $filename for input:
   $!";

     @text = <INPUT>;
     close (INPUT);
     $text = "@text";

    @splittext = split(/$string/,$text);

 #To extract concordance lines from text
    for (my $i=1; $i < @splittext; $i++)
         {
           my $before = substr((' 'x10).$splittext[$i-1],-20,20);
           my $after = substr($splittext[$i].' 'x10,0,20);
           print p($before, strong($string), $after,"\n"),
      }

##</code><code>##

I came across this before.
I came down from Canada. 
I came back yesterday.