Topological Sort

Score: 42.40 (fail)

sorry for this dumb code, referees, i'm just trying to make trail in history that i'm in Paris now.

#!perl
print"Hello, world!\n" # for Ton's fear!!!

Score: 68.52 (pass)

another two bytes, improved tie and a little obfu at the end :) perhaps my last, thanks to referees and to all.

#!perl -ln0
/ \Q$&
/||print$&while s/^\Q$&\E\s|^(.+) \1$/$1/mg,/\S+/g;a%!??

Score: 70.63 (pass)

strangely it runs so long so i began to wonder will it be accepted?

#!perl -p0
$\.="$&
"x!/ \Q$&
/,s/^\Q$&\E[
 ]|^(.+) \1$/$1/mgwhile/\S+/g;a/!//

Score: 76.58 (pass)

hmm, still works, strange.

#!perl -p0
s/^(.+) \1$/$1/mg;$\.="$&
"x!/ \Q$&
/,s/^\Q$&\E[ 
]//mgwhile/\S+/g;a/!//

Score: 77.54 (pass)

just found new a/// operator

#!perl -ln0
s/^(.+) \1$/$1/mg;/ \Q$&
/||print($&)+s/^\Q$&\E[ 
]//mgwhile/\S+/g;a/!//

Score: 79.53 (pass)

sleep

#!perl -ln0
s/^(.+) \1$/$1/mg;/ \Q$&
/||print($&)+s/^\Q$&\E[ 
]//mgwhile/\S+/g;//&&die

Score: 82.53 (pass)

just a surplus space

#!perl -lan0
s/^(\S+) \1$/$1/mg;/ \Q$&
/||print($&)+s/^\Q$&\E[ 
]//mgwhile/\S+/g;/./&&die

Score: 83.53 (pass)

using ton-'s favourite technique - throwing away unnecessary chars

#!perl -lan0
s/^(\S+) \1$/$1/mg;/ \Q$&
/||print($&)+s/^\Q$&\E[ 
]//mg while/\S+/g;/./&&die

Score: 88.52 (pass)

small step

#!perl -lan0
s/^(\S+) \1$/$1/mg;/ \Q$&
/||print($&)+s/^\Q$&\E[ 
]//mg+redo while/\S+/g;/./&&die

Score: 90.52 (pass)

hmm, i was surprised that it works since sometimes $& $+ $- and so on are dying so unexpectedly.

#!perl -lan0
s/^(\S+) \1$/$1/mg;/ \Q$&
/||print($&)&&s/^\Q$&\E[ 
]//mg&&redo while/\S+/g;/./&&die

Score: 105.53 (pass)

my first attempt, not sure you will accept it since i use windows platform :)

#!perl -ln0
s/^(\S+) \1$/$1/mg;$a=$_;A:die if map$a!~/ \Q$_\E
/&&print&&$a=~s/^\Q$_\E[ 
]//mg&&goto A,$a=~/\S+/g