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

##</code><code>##

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