#!/usr/bin/perl -w

use strict;

my $infile="specimen100.txt";

open (IN, "$infile") || die "Can't open $infile: $!";

while (<IN>) {
    my $code = "";
    tr/[A-Z]/[a-z]/; #lowercase all characters
    s/\s+/ /; #remove extra spaces

    my @sample=split(/[0-9][.]/, $_);
    foreach my $sample (@sample) {
        $code=&encode($sample);
        last if ($code);
    }
    print "$code \n";
}

sub encode {
    my $sample = shift;
    my $site=findsite($sample);
    my $specimen=findtissue($sample);
    my $procedure=findproc($sample);
    return assigncode($site,$specimen,$procedure);
}