my ($at_x, $at_y, $goal_x, $goal_y) =
        ( split(/,/, $line) )[4,5,7,8];

    my $x_dir = $at_x < $goal_x ? 'East'  : 'West';
    my $y_dir = $at_y < $goal_y ? 'North' : 'South';