#!/usr/bin/perl -w
$_ = 'This is a discussion forum  by Antichat.ru. Официальный форум АНТИЧАТ.РУ';
print join "\n" => sort { lc($a) cmp lc($b) } split ' '