print for $text=~/[0-9a-f]{4}/g;