Help for this page

Select Code to Download


  1. or download this
    my $str = '
AAGTAATCAAGTATTACAAGAAACAAAAATTCAAGTAAATAACAGATAAT
...
';

# and it can be more than one empty lines
  2. or download this
    $VAR = '
AAGTAATCAAGTATTACAAGAAACAAAAATTCAAGTAAATAACAGATAAT
...
GGGAAGAACTAAGAGATGTTATGGCTCGGAGAGTTTTGAAAAGCGAAATA
GATTCGCTGCAAGTTTGTGAAGAAACCATCGACAAGAATTACAAGGTTAT
';
  3. or download this
    use Data::Dumper;

$str =~ s/[\s]+//mgx;
print Dumper $str;