#!/usr/bin/perl -w
use strict;
$/ = "\n\n";

while (<DATA>) {
    my @wanted = map { (split(/:\s+/))[1] } (split /\n/)[0..1];
    print "@wanted\n";
}

__DATA__
name: url1.domain1.com
date: 2004/2/1
unwanted info: blah blah blah

name: url2.domain5.org
date: 2004/3/12
unwanted info: blah blah blah

##</code><code>##

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';