Code:
$regex($5,/^~?[a-z]\d{3,4}(?:@.*)?$/)


New username: hixxy