> ***tested***
>
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> while ( <DATA> ) {
> chomp;
> my @array = split;
> my $GeneID = $array[6];
>
> if ($GeneID =~ /^C|D/) {
I'm still learning regex but it could be better written with;
if ($GeneID =~ /^[CD]/) {
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
