#!/usr/bin/perl

$len = length($ARGV[0]);
$term = $ARGV[0];

if ($len == 0)
  {
  print "Usage: cat [infile] | findterm [terminating_syllab]  > [outfile]\n";
  exit;
  }

while (defined($line = <STDIN>)) 
  { 
    $lgth = length($line)-1;
    if (substr($line, $lgth-$len, $len) eq $term ) { print $line; }
  }
