#!/usr/bin./perl

use strict;
use warnings;

my @in=("TFS100","TFS 100","TFS-CR100",
        "TFS-CR 100","TFS_100","TFS ID 100",
        "TFS CR 100","TFS ID100","TFS-ID 100",
        "TFS ID:100","TFS-ID: 100",
        "- TFS CR634: STRESS: H 17326,21600,",
        "CR0080588","TFS0080588"
       );
for (@in){
    print "$1\n" if /TFS[-_\s]?(?:CR|ID)?\s?([1-9]\d+)/;
}
[download]