in reply to Substitution Trickery

More as a note of robustness, don't assume that the field is terminated by a slash.

$served =~ s/^(.+) *$/$1/;

just to get rid of any trailing spaces (they always seem to creep in just to annoy me).

First rule of programming: Never code for an error you don't know how to handle.