$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;