1. A futuristic computational biology student was told to write "It is in my gene!!!" on the board 100 times as a punishment. here's his response -
use warnings;
for ($count=1; $count <=100; $count++) { print "It is in my gene!!!";}
I guess, he is gonna to be a real biogeek. Nice try though. Smart kid.
2. In some perl script I found this
. . . . . .
. . . . . .
# It works for me, only God understood how it is working
while (/(<\/[^>]+>)|(<[^>]+>)|(<[^>]+>)$|([^><]+)/go) {
$startGene=$1;
$beginChromosome=$2;
. . . . . .
.. . . . . .
}
3. One more interesting message in Perl found …. It will must tickle you bone :)
open(my $fh, "<", "gene.txt") or kill " Me if you think this is a mistake :$!";
4. From the Perl
while () { # "The Mothership Connection is here!"
print “$_\n”; # Printing the offspring :)
5. Perl message
if ($1) { print “Just found a the error in chromosome !!!, yahoo…”; else { “That is not error, but mutation you moron!”;
6. One genome database curator walk in wine bar asked the bartender:
CREATE TABLE gene IF NOT EXISTS SexOnTheBeach;
Comments
How about this oneliner ;)
perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'
;)