Eval string until character

Hello!

I'm having strings that are very specific. I'm trying to agregate them, so what I want is just to keep the string until "_@" appear. I don't understand yet Perl expression syntax. Can anyone help?

Thank you