Pegar parte de uma string

[Marcio68AlmeidaParticipante]

Você pode criar varios substrings
Essa certamente não é a forma mais elegante de se fazer esse trabalho.
Select Substr (var, 1, 6) var1, Substr (var, 8, 3) var2, Substr (var, 12, 6) var3, Substr (var, 19) var4 From Dual
Você pode utilizar delimitadores, assim contemplará as situações com valores de tamanhos diferentes…
Select Substr (var, 1, instr (var '@') - 1) var1, Substr (var, instr (var, '@') +1, instr (var, '|') - instr (var, '@') - 1 ) var2, Substr (var, instr (var, '|') + 1, instr (Substr (var, instr (var, '|') + 1), '@') - 1 ) var3, Substr (Substr (var, instr (var, '|') + 1), instr (var, '@') + 1) var4 From dual