How bioinfx geeks say happy birthday
echo QSVJRYHFCEXDILPKZTOBWA | grep -o . | sort -r | grep -v ‘[CKQW]‘ | perl -ne ‘chomp; print “$_\t”;’ | cut -f2,4- | perl -ane ‘$x=”KPFFAOJECKNPAIGMBMHBMCLPDD”; foreach $y (split(//,$x)) {print $F[ord($y)-65];} print “\n”;’
