#!/usr/bin/perl -w
use strict;

my $x = 'R4:abcxyz45:LNX';
my $server = (split(/:/,$x))[1];
print "$server\n";               #prints abcxyz45


(my $OS, $server) = (split(/:/,$x))[-1,1];
print "$OS   $server\n";      #prints LNX  abcxyz45