#!/usr/bin/perl

$line="One two three four five";
if($line =~ m/(one)\s(two)\s(three)\s(four)\s(five)/i){
 $one=$1;
 $one =~ s/one/ONE/i;
 print "1: $one\n";
 print "2: $2\n";
 print "3: $3\n";
 print "4: $4\n";
 print "5: $5\n";
}#if