(undef, $etc) = split(/\s+/, $_) if (/^# input.*/);

##</code><code>##

($etc,$etc) = split (/\s+/, $_) if (/^# input.*/);