Select Code to Download

use strict;

...
    print( join( ' ', @{$masterline} ) );
    print( "\n" );
}

C:\temp>perl -w test.pl testdata.txt
IPADDRESS alias1 alias2 alias5
IPADDRESS2 alias3 alias4 alias5