Соответствие строки Perl и извлечение данных

Question

Я работаю над программой извлечения данных, но я не могу заставить эту одну часть журнала данных работать, когда дело доходит до попытки определить положение матрицы на пластине.

    &write_device_results($sbin, $hbin, $diex, $diey, $site, $time, @testdata);
} elsif($line =~ m/"Site 1: W"(\d+)(\d+)/) { # <---- THIS IS NOT WORKING
    $diex = $1;
    $diey = $2;
} elsif($line =~ m/Site (\d+) has \w+. Binned to bin (\d+)\((\d+)\)/) { <- THIS WORKS
    $site = $1;
    $sbin = $2;
    $hbin = $3;

Строка, из которой я пытаюсь извлечь данные, такова:

Сайт 1: W0,0 <--- Первый 0 - позиция $ diex, вторая - позиция $ diey.</p>

Эта строка, из которой я могу извлечь данные:

На сайте 1 произошел сбой.Binned to bin 24 (23)

Любые мысли о том, как я извлекаю данные 0,0 из вышеперечисленных, были бы велики.