Select Code to Download

#!/usr/bin/perl

...
$path->edit_lines( sub { s/^(?=(foo_))/join '', map "$1$_\n", 1..3/e }
+);

print $path->slurp;

hello world
foo_1
...
foo_3
foo_ foo
abc def