use strict;
use warnings;
my $n = 10_000_000;
system "ps -orss $$";
my $x = 'foo' x $n;
system "ps -orss $$";
for my $y (split /f/, $x) {
   system "ps -orss $$";
   last;
}

##</code><code>##

   RSS
  3712
   RSS
 33028
   RSS
674900