while(<SOURCEFILE>)
{
	$zeile = $_;
	if ($zeile =~ m/^Input/)
	{
		...
		$folgezeile = $_;
		...
	}
}