my $position_rolled = 0;
my $spot_rolled = 0;
my $mark_rolled = 0;

##</code><code>##

...
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;
   }

##</code><code>##

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