@Blocks = $Data =~ s/.{1,3}//g;