"japhy" =~ m{
  (
    .
    (?{ "perl" =~ /(.)/; print $1 })
    .
  )
  (?{ print $1 })
}x