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