for (0..255) {
	if (chr($_) =~ /\d/) {
		print "$_ " . chr($_) . " match\n";
	}
}