chomp(my $Strain = <>);