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