use warnings use strict my http adephaga flimsy ru my domen my smile f

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
use warnings;
use strict;
my $a = 'http://adephaga.flimsy.ru';
my ($domen) = $a =~ m,\.(\w+)\.,;
my $smile = ':)';
for my $symb (0 .. length ($domen) - 1) {
my $temp_one = substr $domen, 0, $symb + 1;
my $temp_two = substr $domen, $symb + 1, length $domen;
print $temp_one . $smile . $temp_two . "\n";
}