s^^' {push(@_,$, ||!push@_ ,s/\n\s//) };/../;{s{\s}{"."x(s{\$}{\$}g).$"}eg}
foreach(split(/;|[\s]/)){s /.//||$";$;.=".";$"=(/\t$/?"_":"a");_(1);s//@_/
&&(1);{s/$\'//} (s ;[d]+;chr(+32);e)?print:!print}sub _ {s/.|;/$"++/eg||return0}'
^e&&s@@$'@see