$string =~ s/^[ \t]+$//mg;