I think this will do what you want. 

#!/usr/bin/perl
# 2005-03-01:
# Please always use strict and warnings, they will capture
# many common mistakes and typos
use strict;
use warnings;

# we may as well test it before we try to open it
unless (-T 'imagescartes.txt') {
     print "ceci n'est pas un fichier texte\n";
     exit 1;
}

# ouvrir le fichier contenant la liste des cartes
open CARTES, '<', 'imagescartes.txt' or die 'Ouverture du ficher image
+scartes.txt impossible: $!\n';

# this is the array where we store the image file names
my @amourss;
while (my $ligne = <CARTES>)
{
    chomp $ligne ;
    if ($ligne =~ /^a\S+\.(?:gif|jpg)$/) # will match exactly one word
                                         # begining a and ending in .g
+if or .jpg
                                         # the \S+ is one or more non 
+space chrs
                                         # a.gif not allowed use \S* t
+o allow it
    {
        push @amourss, $ligne;
    }
}

close CARTES;

print "found ", scalar @amourss, " images: ";
print join ", ", @amourss;
print "\n";
__END__

# input file used 
test.gif
this asilly.gif
abc.jpg
abcd.gif
absolutely not a.jpg

# results of running 
>./amourss
found 2 images: abc.jpg, abcd.gif
>

[download]

Update

as Jasper points out a space is valid in filenames in most OSes so please feel free to change the regex to /^a.+\.(?:gif|jpg)$/ if you wish to allow spaces in filenames or /^a.*\.(?:gif|jpg)$/ if you wish to allow a.gif and a.jpg

Cheers,
R.

Pereant, qui ante nos nostra dixerunt!

In reply to Re^3: regular expressions by Random_Walk
in thread regular expressions by wannabeboy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.