Basically,

my $position_rolled = 0;

while (<$fh>) {
    chomp;

    if ($position_rolled) {
        $position_rolled = 0;
        $position_rolled_into = $_;
    }

    elsif ($_ eq 'Position has rolled into') {
       $position_rolled = 1;
    }

    ...
}
[download]