use strict; use warnings; { our $text = 'test'; } { our $text =~ s/t/T/; } { print our $text; # "Test" }