Select Code to Download

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

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