#!/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.