求个正则表达式

_7788

我要判断一个字符中是否包含连续5个数字，请问这个正则表达式如何写？

_7788

^[a-zA-Z0-9\-\_]{0,}[0-9]{5,}[a-zA-Z0-9\-\_]{0,}$
有没有有更简便的？

cristy_cn

[code:1]#!/usr/bin/perl -w

use strict;

my $a="asdl99999dwqidasd";

print "Find\n" if ($a=~ /[0-9]{5}/);
[/code:1]