Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    }
}
close $test_fh;

    if (/\b[Ii]t\b(.*[.,?])$/) {