while (<$RouterOutput>);
if ($. <=3) {
    @Data = split /' '/, $RouterOutput;
    ...
    }