Help for this page
use strict; ... foreach (keys %db) { print "Title: $_\nBody: $db{$_}"; }
@body=split /\n/, $body, 4;
my @lines=split /\n/, $body; my @hdr; ... push @hdr, $l; } $body=join("\n", $l, @lines);
www.com | www.net | www.org
No recent polls found