Perl условие

Здравствуйте , подскажите как записать строчку :

Code:

http://site.ru/auth.php?&to=&s=0&capt=[COLOR=Red]878371319020[/COLOR]&dif=1

В таком условии:

Code:

if ($capt = "http://site.ru/auth.php?&to=&s=0&capt=[COLOR=Red][Какое-нибудь число от 4 до 7 символов][/COLOR]&dif=1")
{
.....
....
....
}

 

Code:

#!/usr/bin/perl
$string = "http://site.ru/auth.php?&to=&s=0&capt=1234&dif=1";

while ($string =~ m/http:\/\/site.ru\/auth.php\?&to=&s=0&capt=(.*)&dif=1/g) {
    if (length($1)<=7 && length($1)>=4){
    	print "True\n"; 
    	}
 	    	else {
	    			print "False\n";
	}
}

[Perl] Новичкам: задаем вопросы

 

или так

$string="http://site.ru/auth.php?&to=&s=0&capt=1234&dif=1";
$string=~/capt=(.*)/ig;print 'tyt vmesto vivoda delaem 4to nado' if $1>=1000;