in reply to interlink search engine

Here's the code
  • because the server is slow from here
  • for archiving, in case they redesign their site
  • #!/usr/bin/perl eval eval '"'. ('[' ^'+').( ('[')^ (')')).( ('`')| ')').( ('`')| '.').( ('[')^ '/' ).+ '\\'.+ "\"".( '`'^'!').('`' ^',').('`'^ ',').( ('{')^ '[').('{'^'"') .('`'^'/').('{ +' ^'.'). ("\{"^ "\)").( (( "\{"))^ '[') +.( ('{')^ '(').( '`'^'%' ).('`' ^'!' +). ("\{"^ ')').( '`'^('#')).( '`'^'(' ).(' +{'^ '[').( ('`')^ '!').('{'^')') .('`'^'%').('{'^ +'[' ).('`' ^'"'). ('`'^('%')).( '`'^',').('`'^'/ +'). ("\`"^ '.').( '`'^"'") .('{'^ '[').( ('{')^ ( '/')).( ('`')^ '/').( '{'^'[' ).('{' ^'.').( '{'^'(' ).( +( '\\')) .('\\').( '`'|'.').('\\'). '"'.';'.(('!' +)^ "\+"). "\"";$:= '.'^'~';$~= '@'|'(';#;#

    --
    perl -pe "s/\b;([st])/'\1/mg"