>perl -wMstrict -le
"my @test = ('0 xx',  'xx 0',  '0');
 ;;
 my @test_filtered = map { (/(\d+)[\d.]*/g)[-1] || '' } @test;
 printf qq{'$_' } for @test_filtered;
"
'' '' ''