# change this:
    $defines{$_} =~ s/<(\w+)>/$defines{$1}/g;

# to this:
    1 while $defines{$_} =~ s/<(\w+)>/$defines{$1}/g;