#!/usr/bin/perl -w
use strict;

my @string;
my $i;
$string[0]="http://www.server.com/image.jpg";
$string[1]="http://www.server.com/file.html";
$string[2]="http://www.serverjpg.com/image.jpg";
$string[3]="http://www.serverjpg.com/file.html";

for ($i=0; $i<4; $i++){
    if ($string[$i]=~/(.jpg|.gif|.jpeg)$/){
        print "Image\n";
    }
    else {
        print "No image\n";
    }
}