my $num = $_; $num =~ /\d+/; [ $_, $num ];