#! /usr/bin/perl -w

# sigrep -- grep sigs for a string

use strict;

my $pattern = $ARGV[0];

my @sigs = ();

{
  local $/ = '%';
  open SIGS, "<sigs"
      or die "Cannot open sigs file: $!\n";
  @sigs = <SIGS>;
  chomp @sigs;
  close SIGS;
}

my @matches = grep /$pattern/, @sigs;

foreach (@matches) {
  print "---\n$_\n";
}

print "---\n";