3 files changed, 3 insertions, 3 deletions
diff --git a/challenge-027/roger-bell-west/perl5/ch-1.pl b/challenge-027/roger-bell-west/perl5/ch-1.pl
index 5eb8e719b4..7144925850 100755
--- a/challenge-027/roger-bell-west/perl5/ch-1.pl
+++ b/challenge-027/roger-bell-west/perl5/ch-1.pl
@@ -28,5 +28,5 @@ if ($u<0 || $u>1) {
   die "No intersection.\n";
 }
 $x[0]=$x[1]+$t*($x[2]-$x[1]);
-$y[0]=$y[1]+$u*($y[2]-$y[1]);
+$y[0]=$y[1]+$t*($y[2]-$y[1]);
 print "$x[0] $y[0]\n";
diff --git a/challenge-027/roger-bell-west/perl5/ch-2.pl b/challenge-027/roger-bell-west/perl5/ch-2.pl
index 6540465dcb..4465158211 100755
--- a/challenge-027/roger-bell-west/perl5/ch-2.pl
+++ b/challenge-027/roger-bell-west/perl5/ch-2.pl
@@ -10,7 +10,7 @@ use Storable qw(dclone);
 my @history;
 
 my $wiz=wizard(
-  set => sub { warn "set\n";if (ref ${$_[0]}) {push @history,dclone(${$_[0]})} else {push @history,${$_[0]}} },
+  set => sub { if (ref ${$_[0]}) {push @history,dclone(${$_[0]})} else {push @history,${$_[0]}} },
 );
 
 cast my ($x),$wiz;
diff --git a/challenge-027/roger-bell-west/perl6/ch-1.p6 b/challenge-027/roger-bell-west/perl6/ch-1.p6
index 706e43953b..4dd871dfec 100755
--- a/challenge-027/roger-bell-west/perl6/ch-1.p6
+++ b/challenge-027/roger-bell-west/perl6/ch-1.p6
@@ -25,5 +25,5 @@ if $u < 0 or $u > 1 {
   die "No intersection.\n";
 }
 @x[0]=@x[1]+$t*(@x[2]-@x[1]);
-@y[0]=@y[1]+$u*(@y[2]-@y[1]);
+@y[0]=@y[1]+$t*(@y[2]-@y[1]);
 say "@x[0] @y[0]";