if(/^(.+)\s(http:\/\/\S+)\s*(.+)$/){

##</code><code>##

if ( m#^(.+)\s(http://\S+)\s*(.+)$# ) {

##</code><code>##

$http->body()=~/<\s*img[^>]*src\s*=\s*[\'\"]([^\'\"]+)[\'\"
+][^>]*$ALT/i

##</code><code>##

my ($dimention);
for $dimention ('-width','-height'){

##</code><code>##

for my $dimension ( qw(-width -height) ) {