Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

$newString .= qq{$string\n};
print $newString;
  2. or download this
    MKTVEQTSPT MTSEKARWIY QKMVEIRMFE DRVHDIFSKG EIPGFVHLYA
GEEAIAVGLC AHLDHNDYIT STHRGHGHCI AKGCELDGMM AEIYGKSTGL
...
DRAKGYNIPG VKVDGKDVVA VYEVAREAVE RARRGEGPTL IECITYRNYG
HFEGDAQTYK TGREKEEHTE ERDAITLFEK YALSNNLLTE EAIQTVRHEV
EQSVDRAVDF ANASDYPQPE ELLTDVYVSY DHEGRNG
  3. or download this
    $newString .= qq{$string\n} if length $string;