RosettaCodeData/Task/Mad-Libs/Perl-6/mad-libs.pl6

print S:g[ '<' (.*?) '>' ] = %.{$0} //= prompt "$0? " given slurp;