next if ($source =~ m/^(\s)*$/);
next if ($source =~ m/^(\s)*$/); #redundant!