$ cat gah.pl
use strict;
use warnings;

my $t = "The quick red fox jumped over the lazy brown dog.";

if ($t =~ /(jump)/g) {
    print "Found $1 ending at ", pos($t), ".\n";
}

if ($t =~ /(\w+)\s+(\w+)\G/) {
    print "Found <$1> before <$2>\n";
}

$t = <<EOTxt;
Now a funkier thing we can
do is to find weird stuffs
such as the text before a word
on the same line
EOTxt

if ($t =~ /(weird)/g) {
    print "Found $1\n";
    if ($t =~ /^([^\n]+)\G/gm) {
        print "<$1>\n";
    }
}

$ perl gah.pl
Found jump ending at 22.
Found <fox> before <jump>
Found weird
<do is to find weird>