while (($usr_name,$acc_time)=$cur->fetchrow_array)
        {

          if ($acct_time =~ /M-d-d/)
               {
                 printf "$1\n";
               }
               else { print "error\n"};

        };
Надо что бы печаталась часть acct_time соответствующая M-d-d

• perl печать по шаблону,A Clockwork Orange, 20:19 , 23-Мрт-04

while (($usr_name,$acc_time)=$cur->fetchrow_array)
        {
                my @AD=split(" ", $acc_time);

                printf ("$usr_name","$AD[1]\n");
        };

Попробвал так , так выдает только в одну строку usr_name