#!/usr/bin/perl -W
use strict;
#use LWP::Simple;
use LWP::UserAgent;
use Text::Wrap qw($columns &wrap);
# С помощью этого параметра указывается макс длина строки
$columns=50;
#Забираем цитату с сервака
my $browser = LWP::UserAgent->new;
$browser->env_proxy;
#$browser->proxy(['http'], '192.168.1.253:3128');
my $URL="
http://bash.org.ru/forweb/?u";
my $response = $browser->get($URL);
my $content = $response->content;
#обрабатываем, оставляем только текст
$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";