First "working" playing.pl.

playing.pl

@@ -0,0 +1,20 @@
+use v6;
+
+my $abc = q«X:64
+T:Cuckold Come Out o' the Amrey
+S:Northumbrian Minstrelsy
+M:4/4
+L:1/8
+K:D
+A/B/c/A/ +trill+c>d e>deg | GG +trill+B>c d/B/A/G/ B/c/d/B/ |
+A/B/c/A/ c>d e>deg | dB/A/ gB +trill+A2 +trill+e2 ::
+g>ecg ec e/f/g/e/ | d/c/B/A/ Gd BG B/c/d/B/ | 
+g/f/e/d/ c/d/e/f/ gc e/f/g/e/ | dB/A/ gB +trill+A2 +trill+e2 :|»;
+
+regex abc_header_field { ^^ \w ':' .* $$ }
+regex abc_header { <abc_header_field>+ }
+
+if $abc ~~ m/ <abc_header_field> /
+{
+    say $<abc_header_field>;
+}