Регулярное выражение, поиск последнего вхождения

[AndreyK]

Всем привет. Подскажите, пожалуйста, регулярное выражение для поиска последнего вхождения в многострочном тексте.
Пример:

my $str = '
452452345длолдов
Warning Text1 jalskdfjadfasdasf
f23495823945
Warning Text2 0000000
adf
Warning Text3 2352345
586епаопра
';
if ($str=~/^Warning (.+)$/m){
    print $1;
}

Выводит эту строку: "Text1 jalskdfjadfasdasf", а нужно, чтобы вывел эту: "Text3 2352345".

[iborisov]

Как вариант, наверное, можно так:

while ($str=~/^Warning (.+)$/mg)
{
    $_=$1;
}
    print;