gistfile1.pm

sub fancy_open {
  my ($filename, $opt) = @_;
  my $encoding = $opt->{'encoding'} // 'utf-8';
  open my $fh, "<:encoding($encoding)", $filename or die "Can't open $filename. $!";
  my @array;

  my $before = $opt->{'before'} // "";
  my $after  = $opt->{'after'}  // "";

  while ( my $line = <$fh> ) {
    chomp $line;
    my $final_line = $before . $line . $after;
    push @array, $final_line;
  }
  close($fh);

  return @array;
}