use CGI qw(:standard);

my $lines=<DATA>;
chomp $lines;
while ($lines=~/(\d)/g) {
    print img{src=>"$1.gif"};
    print "\n";
}
__DATA__
5123496780