map { my $num = $_; $num =~ /\d+/; [ $_, $num ]; } @numbers