note
choroba
If the list of sentences is longer, searching for a word before another word might slow the program down ([doc://Benchmark]). Schwartzian transform to the rescue:
<c>#!/usr/bin/perl
use warnings;
use strict;
use feature 'say';
my @sentences = ('I am searching for a word',
'What are you searching for?',
'Today I have been searching for a new job',
);
my $query = 'searching'; # Not @query, it is a scalar, not an array.
say for map $_->[1],
sort { $a->[0] cmp $b->[0] }
map { /(\w+)\s+searching/; [$1, $_] }
@sentences;
</c><!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1003644
1003644