http://qs321.pair.com?node_id=586217


in reply to splitting and coloring

Hi sanku, First thing is look into How (Not) To Ask A Question and How do I post a question effectively?, then you try like this,

use strict;
use warnings;

my $str = 'MKTVEQTSPTMTSEKARWIYQKMVEIRMFEDRVHDIFSKGEIPGFVHLYAGEEAIAVGL
+CAHLDHNDYITSTHRGHGHCIAKGCELDGMMAEIYGKSTGLCKGKGGSMHIADLDRGMLGANGIVGGGF
+TLAAGAALTAKFKQTGGVAVCFFGDGANNQGTFHEGINLAAIWDLPVVFVAENNGYGEATPFHYASACE
+QITDRAKGYNIPGVKVDGKDVVAVYEVAREAVERARRGEGPTLIECITYRNYGHFEGDAQTYKTGREKE
+EHTEERDAITLFEKYALSNNLLTEEAIQTVRHEVEQSVDRAVDFANASDYPQPEELLTDVYVSYDHEGR
+NG';

$str =~ s/(.{10})/$1 /gsi;
$str =~ s/((?:[^ ]+ ){5})/$1\n/gsi;

print $str;

[download]

davorg++

Updated : Thanks BrowserUK

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

Replies are listed 'Best First'.
Re^2: spliting a lengthy text
by BrowserUk (Patriarch) on Nov 27, 2006 at 10:23 UTC

    Using $& (and friends) can be nasty. See Devel::SawAmpersand for why.

    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom