Hello dr.jekyllandme,

Neighbour has dealt with the main problem — the inappropriate recursion — in your code. However...

If anyone can give me pointers how to improve my code, it would be great. Thank you.

Well, since you asked...  ;-)

• Always  use strict;


• Always  use warnings;


• Prefer lexical filehandles (with lowercase names):  my $fh


• Use the 3-argument form of open:

  open(my $fh, '>', 'my_file.txt');
  [download]

• Either use autodie; at the head of your script, or else add

  or die "...";
  [download]

  after every open and close.


• Do not use the & sigil when calling functions:

  edit_file('my_file.txt');
  [download]

• If using the default variable $_, you often don’t need to name it explicitly:

  open(my $fh, '<', $myfile) or die "Unable to open file\n";
  
  while (<$fh>)
  {
      chomp;             # <-- here and
      unless (/^[a-z]/)  # <-- here
      {
          ...
  [download]

HTH,