for ($ro_string) { s/^\s*//; s/$*\s//; }