<oren> ` echo \'welcome | sed -e "s/th/\xce\xb8/g;s/ch/\xcf\x87/g;s/q/\xce\xba\xcf\x85/;s/w/\xce\xbf\xcf\x85/g;s/W/\xce\x9f\xcf\x85/g;y/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/\xce\x91\xce\x92\xce\x9a\xce\x94\xce\x95\xce\xa6\xce\x93\xce\x97\xce\x99\xce\xaa\xce\x9a\xce\x9b\xce\x9c\xce\x9d\xce\x9f\xce\xa0\xce\xa8\xce\xa1\xce\xa3\xce\xa4\xce\xa5\xce\x92\xce\xa9\xce\x9e\xce\x97\xce\x96\xce\xb1\xce\xb2\xce\xba\xce\xb4\xce\xb5\xcf\x86\xce\xb3\xce\xb7\xce\xb9\xcf\x8a\xce\xba\xce\xbb\xce\xbc\xce\xbd\xce\xbf\xcf\x80\xcf\x88\xcf\x81\xcf\x83\xcf\x84\xcf\x85\xce\xb2\xcf\x89\xce\xbe\xce\xb7\xce\xb6/"\' >bin/\xce\xbf\xcf\x85\xce\xb5\xce\xbb\xce\xba\xce\xbf\xce\xbc\xce\xb5

#!/usr/bin/perl -w
#By Ørjan Johansen, 2009-2012.  This file is in the public domain.

$| = 1;
my $l = 0;

$_ = join '', <>;
while ($l < 512) {
        if (s!^([^/\\]+)!! or s!^\\(.)!!s) { 
                $l += length($1);
                print($1);
        }
        else {
            if (s!^/((?:[^/\\]|\\.)*)/((?:[^/\\]|\\.)*)/!!s) {
                my ($s,$d) = ($1,$2);
                $s =~ s/\\(.)/$1/gs;
                $d =~ s/\\(.)/$1/gs;
                while (s/(?:\Q$s\E)/$d/) { 
                }
            }
            else { last; }
        }
}