note
choroba
No substitution is required, a hash is all you need:
<c>
#!/usr/bin/perl
use warnings;
use strict;
print "Enter date: ";
chomp(my $date = <STDIN>);
my ($day, $month, $year) = split '/', $date;
print "$day $month $year\n";
my $m;
my %dates = map { $_, sprintf '%02d', ++$m }
qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
my $month_n = $dates{$month};
print "$day $month_n $year\n";
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1003454
1003454