my($file, $comment) = /^(\S+)\s*(.*)/;

##</code><code>##

open(F,"< $from\0") or die "Can't read $from: $!\n";