my ($filename, $content) = split /\s+/;