#!/usr/bin/perl

$let = $ARGV[0];
$dir = $ARGV[1];

foreach (<STDIN>) {
  chomp;
  /\d\.\d\d (.*?)  /;
  $title = $1;
  /.*  (.*)$/;
  $alts = $1;
  if ($dir eq "f") {
    $let = lc $let;
    if ($title =~ /^$let/ or $alts =~ /^$let/ or $alts =~ /\;\;$let/) {
      print "$_\n";
    }
    $let = uc $let;
    if ($title =~ /^$let/ or $alts =~ /^$let/ or $alts =~ /\;\;$let/) {
      print "$_\n";
    }
  } elsif ($dir eq "b") {
    $let = lc $let;
    if ($title =~ /$let$/ or $alts =~ /$let$/ or $alts =~ /$let\;\;/) {
      print "$_\n";
    }
    $let = uc $let;
    if ($title =~ /$let$/ or $alts =~ /$let$/ or $alts =~ /$let\;\;/) {
      print "$_\n";
    }
  }
}