note
AnomalousMonk
<c>
>perl -wMstrict -le
"my @test = ('0 xx', 'xx 0', '0');
;;
my @test_filtered = map { (/(\d+)[\d.]*/g)[-1] || '' } @test;
printf qq{'$_' } for @test_filtered;
"
'' '' ''
</C>
<p>
<b>Update:</B> <c> // </C> vice <c> || </C> does the trick.
</P>
1004756
1004779