$ perl -nle 'BEGIN { $/ = "//"; }; print if (/AB039329/)' /sequences/ genbank/166-20080701/gbbct1.seq
Kiran brought me a new sticker, now proudly displayed on my MacBook: "Rocket science is for kids. Bioinformatics is for scientists." http://www.bioinformaticsrocks.com :) j