zoffixznet · December 2, 2015 23:53
diff --git a/Perl 5 b/Perl 5
 #!/usr/bin/env perl

 use strict;
 use warnings;
 use 5.022;

 use Mojo::Util qw/slurp  decode  encode/;

 my $line = 1;
 my $code = join "\n", map sprintf('%2d   %s', $line++, $_),
    split /\n/, decode 'utf8', slurp 'data.html';

 say encode 'utf8', $code;
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use 5.022;

	use Mojo::Util qw/slurp decode encode/;

	my $line = 1;
	my $code = join "\n", map sprintf('%2d %s', $line++, $_),
	split /\n/, decode 'utf8', slurp 'data.html';

	say encode 'utf8', $code;