Help for this page
#!/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