perl regular expression

Dear all,

I have a simple issue on a perl regular expression. I want to get the characters in red from the next lines :
POWER_key
LEFT_key
RIGHT_key
OK_key
DOWN_key
and so on...
Thanks in advance for reply.
Ludo

/([^_]*)_/

then your $1 will have what you wanted.