- or download this
/(?^:(?^x:(?:s(?:e(?:t(?:(?:(?:(?:hos|ne)t|gr)en|s(?:erven|ockop))t|p(
+?:r(?:iority|otoent)|went|grp))|m(?:ctl|get|op)|ek(?:dir)?|lect|nd)|y
+(?:s(?:write|call|open|read|seek|tem)|mlink)|h(?:m(?:write|read|ctl|g
+et)|utdown)|ocket(?:pair)?|(?:qr|ta)t|printf|ubstr|leep|rand|in)|g(?:
+e(?:t(?:p(?:r(?:oto(?:byn(?:umber|ame)|ent)|iority)|w(?:ent|nam|uid)|
+eername|grp|pid)|s(?:erv(?:by(?:name|port)|ent)|ock(?:name|opt))|host
+(?:by(?:addr|name)|ent)|net(?:by(?:addr|name)|ent)|gr(?:ent|gid|nam)|
+login|c))?|mtime|lob|t)|r(?:e(?:ad(?:lin[ek]|pipe|dir)?|(?:quir|vers|
+nam)e|winddir|set|cv|f)|index|mdir|and)|c(?:h(?:r(?:oot)?|dir|mod|own
+)|o(?:n(?:tinue|nect)|s)|lose(?:dir)?|aller|rypt|mp)|l(?:o(?:c(?:alti
+me|k)|g)|i(?:sten|nk)|c(?:first)?|e(?:ngth)?|(?:sta)?t)|e(?:nd(?:(?:h
+os|ne)t|p(?:roto|w)|serv|gr)ent|x(?:ec|it|p)|of|q)|u(?:(?:n(?:lin|pac
+)|mas)k|c(?:first)?|time)|f(?:or(?:mline|k)|c(?:ntl)?|ileno|lock)|w(?
+:a(?:it(?:pid)?|ntarray|rn)|rite)|m(?:sg(?:ctl|get|rcv|snd)|kdir)|t(?
+:ell(?:dir)?|runcate|imes?)|d(?:bm(?:close|open)|ump|ie)|a(?:ccept|la
+rm|tan2|bs|nd)|__(?:(?:FIL|LIN)E|SUB)__|o(?:pen(?:dir)?|rd?|ct)|b(?:i
+n(?:mode|d)|less)|i(?:n(?:dex|t)|octl)|v(?:alues|ec)|p(?:ack|ipe)|n(?
+:ot|e)|quotemeta|x(?:or)?|CORE|join|kill|hex)))/
- or download this
/CORE|__FILE__|__LINE__|__SUB__|abs|accept|alarm|and|atan2|bind|binmod
+e|
bless|caller|chdir|chmod|chown|chr|chroot|close|closedir|cmp|connect|
...
symlink|syscall|sysopen|sysread|sysseek|system|syswrite|tell|telldir|t
+ime|
times|truncate|uc|ucfirst|umask|unlink|unpack|utime|values|vec|wait|
waitpid|wantarray|warn|write|x|xor/x
- or download this
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,