$str =~ /^(?:(?:(?:527[8-9])|(?:52[8-9]\d)|(?:53[0-8]\d)|(?:539[0-1]))
+)$/
[download]

Here is full example ( regex is from there )
http://www.regex-builder.com/example_numeric_regex.pl