#!/usr/bin/perl

$infile = $ARGV[0];
unless ( open( File, "$infile" ) ) {
    die "can't open $infile";
}

while(<File>) {
    if (/^BANK_NAME\(([a-zA-Z0-9_]+),/) {
	if ($1 !~ /^zzz\w*/) {
	    printf("$1.bnk\n");
	}
    }
}
# EOF ###