in the spirit of TIMTOWTDI...

you could use the substring function

this would assume a consistent format of 4 numbers beginning in position 3.

#!/usr/bin/perl

@servs = qw( de0040Newark de0050Oldark );

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