Following GrandFather's advice:

use strict;
use warnings;

use Lingua::EN::Bigram;

my $text = q{i ain't going home they are going school. 
sam isn't going to lunch. "Going going gone!" quoth the auctioneer};

my $ngrams = Lingua::EN::Bigram->new;
$ngrams->text( $text );
  
my @trigrams = $ngrams->ngram( 3 );

for ( @trigrams ) {
   print "$_\n" if ( split )[1] eq 'going';
}
[download]

Output:

ain't going home
are going school
isn't going to
. going going
going going gone
[download]