Question

Possible Duplicate:
Finding the N th Occurrence of a Match line

I have multi-line text with:

• ship
• plane
• ship
• car

I want to find the 1st occurrence of “ship” in a line and output:

The ship is a 1’st one.

I want find 2nd occurrence of “ship” in a line and output:

The ship is a 2’nd one.

Answer 1

use strict;
use warnings;
use Lingua::EN::Inflect 'ORD';

my $text = "ship plane\n ship\n car";
my @ships = $text =~ /(ship)/g;
for ( my $i = 0; $i < @ships; $i++ ) {
    my $ship_num = ORD($i + 1);
    print "The ship is the $ship_num one\n";
}

&ORD will take care of your ordinal suffixes.