Select Code to Download

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

...
next if $line =~ /^-/;
...
   if ($line =~ /Mark has rolled into/) {
        $mark_rolled = 1;
   }

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