print revcompl("CGTAGTC"), $/;
# GACTACG
print scalar revcompl("CGTAGTC"), $/;
# 1