Help for this page

Select Code to Download


  1. or download this
       ($j=$i)    =~ s/G(.+)/Galpha-$1/;
   my @values = ($j =~ /(Galpha-[it])/  
                    ? map{$1.$_}1..3 
                    : ($j)
                 );
  2. or download this
       if ($_=~/^.*\t.*\t(.*)\t.*\t.*/mgi)
  3. or download this
    use strict;
use warnings;
...
biologist       xargon  Galpha-i2       question
biologist       xargon  Galpha-i3       question
perl    monks   Galpha-11       answer?