sub cleaner { $_[0] =~ s/foo/bar/; }

if  ( rand > 0.5 ) { cleaner('foo') }

__DATA__
Modification of a read-only value attempted at script line 1. # sometimes