for dir(".") -> $file { say "foo".subst: /(fo)o/, {$/[0].flip}; last; }