$record =~ s/\s//gm;