in reply to Help for awk/regex/newbie

Just my 2 cents (ignore if you like), but this is how I did it. 
#!/usr/bin/perl -wn
use strict; 
print((split(' '))[0],"\n") unless($_ =~ /^\s+$/);

[download]



lindex 
/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/

[download]

In Section Seekers of Perl Wisdom