Re: Replacing with comma

[2teez]

You have been given great answers, but If I may add just this.
Using a subroutine with scalar, reverse functions with substitution s///. One can hack a solution like so:

use warnings;
use strict;

my $foo = "1,2,3";
print modify( $foo, ',', '|' );  ## prints 1,2|3

$foo = "1|2|3";
print modify( $foo, '|', ',' );  ## prints 1|2,3

sub modify {
    my ( $val, $sep, $rep ) = @_;
    $val = scalar reverse $val;
    $val =~ s/\Q$sep\E/$rep/;
    return scalar reverse $val;
}