#!/usr/bin/perl

use warnings;
use strict;

my @chunks = <DATA>;
for (@chunks) {
    print unless /^[*]|[a-zA-Z]|\d+\./;
}

__DATA__
a
@
b
@ d
e