$string = '
=============
Title
By: Author
Posted: Date
=============';

print "Posted by: ", $1     if $string =~ m/By:\s*(\S+)\n/i;
print "Date posted: ", $1   if $string =~ m/Posted:\s*(\S+)\n/i;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print