my $in = open "test", :r;
for $in.lines -> $x {
 if ($x ~~ /b/) {
  say $x;
  my $y = $in.get;
  say $y;
 }
}