Select Code to Download

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

    #!/usr/bin/perl -w
    use strict;
...
    my $file = $opts->{FILE};
    print "$file\n";