open(DATEI,"<$file") or die $!;
while(my $line = <DATEI>){
  if($line =~ /^a/){ # hier überprüfst Du, ob es mit a anfängt...
    print $line;
  }
}
close DATEI;