#!/usr/bin/perl

$let = $ARGV[0];

foreach (<STDIN>) {
  chomp;
  /\d\.\d\d (.*?)  /;
  $title = $1;
  if ($title =~ /$let$/ or $_ =~ /$let$/ or $_ =~ /$let\;\;/) {
    print "$_\n";
  }
}