#!/usr/bin/perl

use strict;
use warnings;

while (my $line = <DATA>){
    next if $line =~ /Port/;
    print "$line\n";
    last;
}


__DATA__
RNC               RIP-IP     Switch /Router     Port
GURRNC1     172.16.1.2     GURSW1             1/6
GURRNC1     172.16.2.2     GURSW2             2/6
GURRNC2     172.16.3.2     GURSW3       3/6
GURRNC2     172.16.4.2     GURSW4             4/6