[wvxvw]

var s:String = "лцуоплцп ewkjfnw2007.kje@kreje.co.uk kwejfwkef eefeww@rge-rg.ru ewjfwkejfwe";
var re:RegExp = /([\w\d-_](\.?[\w\d-_])){1,64}?@[\w\d](\-?[\w\d]){1,252}?\.\w{0,4}\.?\w{0,4}/g;
trace(s.match(re));