#!/usr/bin/perl -w

use strict;

my $file = 'scribefaith';
open(FILE,"<$file") or die "Cannot open $file";
while (<FILE>) {
  print $1 if (m/^Request Number:\s+([0-9]+)/);
  # insert various regular expressions here to match tags
}
close(FILE);