#!/usr/bin/perl

use Data::Dumper qw(Dumper);

$text = "Кот собака кит дельфин";
@t = split / /, $text;
print Dumper \@t;