my $txt="Foo bar";
(my $clean=$txt)=~s/oo/u/g;

open my $fh,"File" or die "File $!";

if (my ($x,$y,$z)=/A(..)(..)(..)Z/) { }