Aqui está em Perl:
perl -ne '$_ =~ s/([a-zA-Z0-9]+_){3}//; print $_;'
Por exemplo:
% echo "username_token1_token2_token3_4_token4_2" | perl -ne '$_ =~ s/([a-zA-Z0-9]+_){3}//; print $_;'
token3_4_token4_2
Funciona da seguinte forma:
Inicialmente, a string "username_token1_token2_token3_4_token4_2"
é colocada na variável $_
.
pesquisar e substituir
s/....//
Corresponde a uma string_ (ou seja, parte do .... acima)
([a-zA-Z0-9]+_)
Corresponde 3 deles
{3}
substitui-os por nada (isto é, apaga)
//
imprima o que sobrou de $ _
print $_