my ($Name, $Data)=split,1; 

##</code><code>##

my ($Name, $Data) = split( /\s+/, $_, 1 );