Select Code to Download

my $test_str = "1 text text text 2 text 3 ";
my $test_out = q{};
...
}

print "\$test_out\n" . $test_out . "\n";

foreach (@test) {
  @test_filtered=grep{/^(([0-9]+)(?![^0-9]*[0-9]))/xsm} @test; 
}