$ perl -wle '$a="text"; $a = ~s/x/s/; print $a;'
Use of uninitialized value $_ in substitution (s///) at -e line 1.
4294967295
$ perl -wle '$a="text"; $a =~ s/x/s/; print $a;'
test