<div>
my $str = &quot;20090630|A|0.5<br />
&nbsp; &nbsp; &nbsp; &nbsp; 20090630|B|0.7&quot;;<br />
print join&quot;,&quot;,split/(?:\s+\d+)?\<wbr />|\w+\|/,&quot;$<wbr />str\n&quot;;
</div>


my $str = "20090630|A|0.5
        20090630|B|0.7";
print join",",split/(?:\s+\d+)?\|\w+\|/,"$str\n";

<div>
<div class="content wysiwyg-content">
I have string $str = &quot;20090630|A|0.5<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;20090630|B|0.7&quot;;<br />
basically a file wiht 2 lines is read in to a string.<br />
I want to output string in the format 20090630,0.5,0.7<br />
Can this be done in one liner ?<br />
I know we can split with &quot;\n&quot; first and then with &quot;|&quot; but i want to know if it can be done in one line ?<br />
<br />
Thanks for your help<br />

</div>
</div>


I have string $str = "20090630|A|0.5
                                 20090630|B|0.7";
basically a file wiht 2 lines is read in to a string.
I want to output string in the format 20090630,0.5,0.7
Can this be done in one liner ?
I know we can split with "\n" first and then with "|" but i want to know if it can be done in one line ?

Thanks for your help


PERL format

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.