PCRE - Perl-compatible regular expressions

Помогите разобраться с PCRE. Нужно написать regexp Perl-compatible для поиска строк типа:

[любые буквы/цифры до 24-х штук]@[любые буквы/цифры до 24-х штук].[любые буквы до 4-х штук][любой символ][любые буквы/цифры до 50 штук]

я только изучаю, помогите написать одним выражением

 

спасиб, сам написал

Code:

[0-9a-zA-Z]{1,25}@[0-9a-zA-Z]{1,25}\.[a-zA-Z]{1,4}.[0-9a-zA-Z]{1,50}