my $file = slurp "data.sm"; $file ~~ s:g/^^\s*end$$/\}/; if ($file ~~ m/^^\s*doing\s(<[\w\-]>+)\s(\N+)$$/) -> *$m is copy { $m = $m.list>>.Str; my $names = gather for $m[1].split(", ") {take .split: ": "}; say $names; say "($($names.map(':$' ~ *[0]).join(', '))) " ~ "\{my ($($names.map('$' ~ *[1]).join(', '))) = $($names.map('$' ~ *[0]).join(', '));\}"; } sub test(:$from) {my \a = $from; say a} say $file; test from => 1;