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