sergot · December 16, 2015 20:59
diff --git a/golf.pl b/golf.pl
 TODO
diff --git a/japh.pl b/japh.pl
 use v6;

 say "Just another Perl hacker";
diff --git a/oneliners.pl b/oneliners.pl
 use v6;

 # Program 1
 print (.split('')[2] or '') for lines();

 # Program 2
 my $s; $s += $_ for lines(); say $s;

 # Program 3
 say $_~"\n" for lines();

 # Program 4
 my $n; say "{++$n}.$_" for lines();

 # Program 5
 for lines() { last if m:i/^end$/; next if m:i/^start$/; .say; }
diff --git a/roman.pl b/roman.pl
 TODO
	use v6;

	# Program 1
	print (.split('')[2] or '') for lines();

	# Program 2
	my $s; $s += $_ for lines(); say $s;

	# Program 3
	say $_~"\n" for lines();

	# Program 4
	my $n; say "{++$n}.$_" for lines();

	# Program 5
	for lines() { last if m:i/^end$/; next if m:i/^start$/; .say; }