Select Code to Download

#!usr/bin/perl 
use strict;
use warnings;
...
} 
until (my $motif =~ /^\s*$/ );
exit;

Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:\Documents and Settings\user>cd d*
...
Use of uninitialized value $motif in pattern match (m//) at C:\Documen
+ts and Set
tings\user\Desktop\basecount.pl line 27, <STDIN> line 1.
C:\Documents and Settings\user\Desktop>

Number of bases: 36.  Errors(N)=3.
Motif: AT. Number of motifs: 0.
The inter-motif nt Lengths are:
5