$string =~ s/^\s*?\n/\n/mg;