c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my @in  = ('Maria-s', 'Thano-s');
 my @out = map { s/-/+/g;  $_; } @in;
 print Dumper \@in;
 print Dumper \@out;
"
$VAR1 = [
          'Maria+s',
          'Thano+s'
        ];

$VAR1 = [
          'Maria+s',
          'Thano+s'
        ];

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my @in = ('Maria-s', 'Thano-s');
 s/-/+/g for @in;
 print Dumper \@in;
"
$VAR1 = [
          'Maria+s',
          'Thano+s'
        ];

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"print 'perl version: ', $];
 ;;
 my @in  = ('Maria-s', 'Thano-s');
 my @out = map { (my $mp = $_) =~ s/-/+/g;  $mp; } @in;
 print Dumper \@in;
 print Dumper \@out;
"
perl version: 5.008009
$VAR1 = [
          'Maria-s',
          'Thano-s'
        ];

$VAR1 = [
          'Maria+s',
          'Thano+s'
        ];

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"print 'perl version: ', $];
 ;;
 my @in  = ('Maria-s', 'Thano-s');
 my @out = map { s/-/+/gr } @in;
 print Dumper \@in;
 print Dumper \@out;
"
perl version: 5.014004
$VAR1 = [
          'Maria-s',
          'Thano-s'
        ];

$VAR1 = [
          'Maria+s',
          'Thano+s'
        ];