if ( $Line2 =~ m/^hostname / ) {
   @Data2 = split( ' ', $Line2 );
   $Rname = $Data2[ 2 ] ;
   last ;
 }