Fun: Giúp em in chuỗi ra màn hình

[vhnam (Võ Hoài Nam)]

Em mới học lập trình, mấy bác giúp em in ra màn hình dòng chữ này với

Smile!Smile!Smile!
Smile!Smile!
Smile!

https://www.quora.com/Homework-Question-How-do-I-write-a-program-that-produces-the-following-output-1

[conan4582 (Quốc Hùng)]

Mấy thím trong Quora troll nhau quá, vầy thì nghĩ mẹ cho r

# happy debug ;) ! Bitch
#!/usr/bin/perl
$hell = sub { $o=""; foreach(@{$_[0]}) { $o .= chr($_); } return $o; };
$z = 0b100;
$x = [0123];
$x->[1] = 0x6d;
$x->[2] = $$x[1] & ~$z;
push @$x, @$x[1,2];
$y = \$$x[$z];
$x->[0b11]--;
$$y -= $z;
$x->[05] = (666>>$z)-($z<<1);
while(--$z) { for(1..$z) { print $hell->($x); } print $/; }

[vhnam (Võ Hoài Nam)]

Bác đọc đoạn viết bằng BrainFuck kèm comment rất có tâm