Topological Sort

Score: 158.47 (pass)

#!perl -na
$a{$_}++for($a,$b)=@F;push@r,qr/( \Q$b\E\n)(.*)( \Q$a\E\n)/s;END{$e.=" $_\n"for keys%a;for(@r){$e=~s/$_/$3$2$1/for@r}$e=~$_&&die for@r;$e=~s/ //g;print$e}

Score: 160.48 (pass)

#!perl -na
$a{$_}++for($a,$b)=@F;push@r,qr/( \Q$b\E\n)(.*)( \Q$a\E\n)/s;END{$e.=" $_\n"for keys%a;for(@r){$e=~s/$_/$3$2$1/for@r}$e=~/$_/&&die for@r;$e=~s/ //g;print$e}

Score: 184.48 (pass)

#!perl -an
$a{$_}++for@F;($a,$b)=@F;push@r,qr/( \Q$b\E )(.*)( \Q$a\E )/ if$a ne$b;END{$e.=" $_ "for keys%a;for(1..keys%a){$e=~s/$_/$3$2$1/for@r}$e=~/$_/&&die for@r;print"$_\n"for split' ',$e}

Score: 198.48 (pass)

#!perl -an
$a{$_}++for@F;($a,$b)=@F;push@r,qr/( \Q$b\E )(.*)( \Q$a\E )/ if$a ne$b;END{$e.=" $_ "for keys%a;for(1..@r*keys%a){$e=~s/$_/$3$2$1/for@r}for(@r){die if$e=~s/$_/$3$2$1/}print"$_\n"for split' ',$e}