Help for this page

Select Code to Download

Select or download this

my @test = (
    "text text text 1 text",
...
my @filtered = map {/(\d+)(?:\.0*)?\D*$/; $1} @test;

print join "\n", @filtered;

Select or download this

my @filtered = map {/(\d+(?:\.\d*)?)\D*$/; 0 + $1 || ''} @test;

print join "\n", @filtered;