use strict;
use warnings;

my @lines = split /\n/, <<LINES;
token token token
taken token tiki
LINES

chomp @lines;

for my $line (@lines) {
    print "$line:\n";
    while ($line =~ /token/gi) {
        print "   >$`|$'<\n";
    }
}

##</code><code>##

token token token:
   >| token token<
   >token | token<
   >token token |<
taken token tiki:
   >taken | tiki<