Thanks guys!

I ended up doing the following:

Right before the while (<MSOUT>) line:

my $position_rolled = 0;
my $spot_rolled = 0;
my $mark_rolled = 0;
[download]

inside the while (<MSOUT>) loop:

...
next if $line =~ /^-/;
   if ($position_rolled) {
       $position_rolled = 0;
       $position_rolled_into = $line;
   }

   if ($spot_rolled) {
       $spot_rolled = 0;
       $spot_rolled_into = $line;
   }

   if ($mark_rolled) {
       $mark_rolled = 0;
       $mark_rolled_into = $line;
   }
...
   if ($line =~ /Position has rolled into/) {
        $position_rolled = 1;
   }
   if ($line =~ /Spot has rolled into/) {
        $spot_rolled = 1;
   }
   if ($line =~ /Mark has rolled into/) {
        $mark_rolled = 1;
   }
[download]

And then printing it out:

print "Position rolled into: $position_rolled_into\n";
print "Spot rolled into: $spot_rolled_into\n";
print "Mark rolled into: $mark_rolled_into\n";
[download]

Works like a charm :)