#!/usr/bin/perl

$search = shift;
$search =~ tr/-a-zA-Z0-9_. \n\t//cd;
$search =~ s/\s/[^a-zA-Z0-9]+/g;
$search =~ s/\./\\./g;

while (defined ($card_filename = <>)) {
	chomp $card_filename;
	if (open CARD, "cards/$card_filename") {
		$card = join "", <CARD>;
		if ($card =~ /$search/iso) {
			print "$card_filename\n";
		}
		close CARD;
	} else {
		warn "cannot open cards/$card_filename\n";
	}
}