[ create a new paste ] login | about

Link: http://codepad.org/fTkN0hM9    [ raw code | output | fork ]

Perl, pasted on Jul 12:
1
2
3
$s = '21pro_ABCD_EDG_10800_48052_2 0.0';
$s =~ s/_([0-9])/,$1/g;
print $s;


Output:
1
21pro_ABCD_EDG,10800,48052,2 0.0


Create a new paste based on this one


Comments: