You'll be wanting perldoc -f split in list context()

my $serverID = 'serverFoo/bar/baz';
my( $cnID ) = split '/', $serverID, 2;
print "$serverID
$cnID";
[download]

Originally posted as a Categorized Answer.