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'
        ];