my $d_log = "Auto And Company 57 DI 13 FA 13 FAI 4 Login 23 Not Found 4";
if( $d_log =~ 
/^
 (.*?)\s
 (\d+)\s
 (\w+)\s
 (\d+)\s
 (\w+)\s
 (\d+)\s
 (\w+)\s
 (\d+)\s
 (\w+)\s
 (\d+)\s
 (\w+)\s
 (\w+)\s
 (\d+)
$
 /x) {
    print $1;
}