Dear Monks,
My present script

#!/usr/bin/perl
use strict;
use warnings;

my $mycnt;
while(<DATA>){
    s!Number this.!++$mycnt.') Number this.'!ie;
    print;
}

__DATA__
Sample text.
Number this.
Number this.
Sample text.
Number this.
[download]

Outputs:

Sample text.
1) Number this.
2) Number this.
Sample text.
3) Number this.
[download]

Is there any option in perl to change the counter to print alphabets, e.g. required output is

Sample text.
a) Number this.
b) Number this.
Sample text.
c) Number this.
...
[download]

Thanks in advance