my $file = io('file')->slurp;
$file =~ s/change/s/;
$file > io('file');