#!/usr/bin/perl
 eval eval '"'.
           ('['
         ^'+').(      ('[')^
         (')')).(     ('`')|
          ')').(      ('`')|
                      '.').(
                      ('[')^              '/'                 ).+
          '\\'.+      "\"".(         '`'^'!').('`'        ^',').('`'^
          ',').(      ('{')^        '[').('{'^'"')      .('`'^'/').('{
+'
          ^'.').      ("\{"^       "\)").(      ((     "\{"))^    '[')
+.(
          ('{')^      '(').(       '`'^'%'             ).('`'     ^'!'
+).
          ("\{"^      ')').(       '`'^('#')).(       '`'^'('     ).('
+{'^
          '[').(      ('`')^        '!').('{'^')')    .('`'^'%').('{'^
+'['
          ).('`'      ^'"').          ('`'^('%')).(   '`'^',').('`'^'/
+').
          ("\`"^      '.').(                '`'^"'")   .('{'^
          '[').(      ('{')^        (        '/')).(   ('`')^
          '/').(      '{'^'['      ).('{'   ^'.').(     '{'^'('    ).(
+(
          '\\'))      .('\\').(   '`'|'.').('\\').       '"'.';'.(('!'
+)^
          "\+").       "\"";$:=      '.'^'~';$~=           '@'|'(';#;#
[download]

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

Here is the output of perltidy, which offers a clue (nifty obfu!!):

#!/usr/bin/perl
eval eval '"'
  . ( '[' ^ '+' )
  . ( ('[') ^ (')') )
  . ( ('`') | ')' )
  . ( ('`') | '.' )
  . ( ('[') ^ '/' )
  . +'\\'
  . +"\""
  . ( '`' ^ '!' )
  . ( '`' ^ ',' )
  . ( '`' ^ ',' )
  . ( ('{') ^ '[' )
  . ( '{' ^ '"' )
  . ( '`' ^ '/' )
  . ( '{' ^ '.' )
  . ( "\{" ^ "\)" )
  . ( ( ("\{") ) ^ '[' )
  . ( ('{') ^ '(' )
  . ( '`' ^ '%' )
  . ( '`' ^ '!' )
  . ( "\{" ^ ')' )
  . ( '`' ^ ('#') )
  . ( '`' ^ '(' )
  . ( '{' ^ '[' )
  . ( ('`') ^ '!' )
  . ( '{' ^ ')' )
  . ( '`' ^ '%' )
  . ( '{' ^ '[' )
  . ( '`' ^ '"' )
  . ( '`' ^ ('%') )
  . ( '`' ^ ',' )
  . ( '`' ^ '/' )
  . ( "\`" ^ '.' )
  . ( '`' ^ "'" )
  . ( '{' ^ '[' )
  . ( ('{') ^ ('/') )
  . ( ('`') ^ '/' )
  . ( '{' ^ '[' )
  . ( '{' ^ '.' )
  . ( '{' ^ '(' )
  . ( ('\\') )
  . ('\\')
  . ( '`' | '.' )
  . ('\\') . '"' . ';'
  . ( ('!') ^ "\+" ) . "\"";
$: = '.' ^ '~';
$~ = '@' | '(';    #;#
__END__

... etc...
[download]

And for a further clue, try replacing eval eval with print ;)

dmm

Deparse++

2;0 juerd@ouranos:~$ lynx -dump www.ilse.com | perl -MO=Deparse
eval eval qq["print\\"ALL YOUR SEARCH ARE BELONG TO US\\\\n\\";\n"];
$: = 'P';
$~ = 'h';
- syntax OK
[download]

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]

Cool module. ++Deparse, indeed!

dmm

If you GIVE a man a fish you feed him for a day
But, TEACH him to fish and you feed him for a lifetime

The code is only available to the savvy users of the lynx browser. Or to perl users who know how to tweak their user-agent string:

perl -MLWP::UserAgent -e'$ua=LWP::UserAgent->new;$ua->agent("lynx");$req=HTTP::Request->new(GET=>"http://www.ilse.nl");$res=$ua->request($req);print $res->content' | less