Grepping only Feb , 11 th log from auth.log using perl

open("FILE","/var/log/auth.log");
while($line=<FILE>)
{
if($line=~m/(\b[A-Z,a-z]{3}\b)(\s+)(\d+)/)
{
if(($1 eq "Feb" )&&($3==11))
{
print "$line"."\n";
}
}
}