#!/usr/bin/perl

@servs = qw( de0040Newark de0050Oldark );

foreach (@servs)
{
  print substr($_, 2, 4), "\n";
}