use strict;
use warnings;

while(<DATA>){
  chomp;
  print $1,$/ if /(pirates.*careebian)/; 
}

__DATA__
piratesofcareebian100
pirates of careebian100
pirates of careebian 100
pirates1 of careebian 100
pirates2 of careebian 100
pirates3 of careebian 100