Hello Monks, I'm a real newbie,so this might be an easy task to most of you to tackle. I'm trying to pattern macth the date,any date, in a text and then add 'st','nd','rd','th' after each day of the month. All attempts to use an array failed, therefore i opted for the 'easier' solution, but i have hit rock yet again. The code simply doesn't seem to iterate through the if..elsif statements, and always adds the 'st'. This is the code i am using: 
#!perl<br> 
use CGI;<br>
$query = new CGI;<br>
$source = $query->param('input');<br>
print $query->header;<br>

$source =~ m/(\d{1,2})(\/|\-)(\d{1,2})(\/|\-)(\d{2,4})/g;<br>

my $day = $1;<br>
if($day == 1,21,31){<br>
    $day = "$day\st"<br>
}elsif($day == 2|22){<br>
    $day = "$day\nd"<br>
}elsif($day == 3|23){<br>
    $day = "$day\rd"<br>
}elsif($day == 4-20|24-30){<br>
    $day = "$day\th"<br>
}<br>
print "$day";<br>

[download]
Pls help!!!

Added <code> tags - dvergin 2002-11-31

In reply to pattern matching by r_mehmed

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.