Well, it's still a couple of loops :)

#!/usr/bin/perl

use strict;
use warnings;

$_ = '0ae4bb830';

my @list;
push @list, map "$`$_$'", 0..9, 'a'..'f' while /()/g;

print scalar @list, "\n\n@list\n";
[download]