use strict;

while (<DATA>) {
        my $line = $_;
        print $. . " " . $line;

        my @matches = /<gid=(\d+)>/g;

        foreach (@matches) {
                print "MATCH:: $_\n";
                $line =~ s/<gid=$1>/<img src="PATH\/TO\/$1>/
        }
        print "NEW" . $line;

}

__DATA__
<gid=3035>Wij zijn hier aan het moven. We gaan nog meer moven. <gid=3036>
Waarom wij dit doen weet ik ook niet. Maar we zullen het snel weten. <gid=3037>

<gid=3037>we testen dit zo.