#!/usr/bin/perl -w
use strict;
use LWP::Simple;
use Text::Wrap qw($columns &wrap);
# С помощью этого параметра указывается макс длина строки
$columns=30;
#Забираем цитату с сервака
my $URL="
http://bash.org.ru/forweb/?u";
my $content = get($URL);
#обрабатываем, оставляем только текст
$content=~/\<\'\s\+\s\'br\>(.*)\<\'\s\+\s\'br\>/;
$content=$1;
$content=~s/\<\'\s\+\s\'br\>/\n/g;
$content=~s/\<\'\s\+\s\'br\s+\/\>/\n/g;
$content=~s/\<//g;
$content=~s/\>//g;
$content=~s/\"\;/\"/g;
print wrap("", "", $content);
#print $content;
print "\n";
#the end