for ($string) { local $\ = '/'; chomp; $_ .= '/'; }