use strict;
use warnings;


while(<DATA>){
  chomp;
  print $1,$/ if/(.+?)(\s+)?\d+?$/;
}

__DATA__
piratesofcareebian100
pirates of careebian100
pirates of careebian 100
pirates1 of careebian 100
pirates2 of careebian 100
pirates3 of careebian 100
  
##</code><code>##

piratesofcareebian
pirates of careebian
pirates of careebian
pirates1 of careebian
pirates2 of careebian
pirates3 of careebian