Select Code to Download

#! perl -slw
use strict;
...
xxw preceeded GAAT

C:\test>

#! perl -slw
use vars qw[$LEN $N $MAX];
...
            ? '... ' . substr( $1, -10)
            : ''
            for @matches;