Perl code - 3 lines

Link:

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