Convert to Antisense sequence

[tendo]

Rocky Ho wrote in message <3662D66E.E87FA059 at cuhk.edu.hk>...
>Hi!
>
>Is there anyone know a simple program or software which can convert a
>known sequence into antisense format from 5' to 3'.


#!/usr/bin/perl
# antisense - makes an antisense DNA sequence.
while (<>) {
    print, next if /^>/;
    tr/acgtuACGTU/tgcaaTGCAA/;
    print;
}