use Data::Dumper;

my $restofline = "One fish two fish red fish blue fish";
print Dumper( [ split /\s*fish\s*/, $restofline ] );
__END__
$VAR1 = [ 
          'One',
          'two',
          'red',
          'blue'
        ];