Ideone.com

download

#!/bin/bash
s='bob mary mike bill kim jim john'
perl -lane 'while (/(?=\b(\p{L}+\s+\p{L}+))/g) {print $1}' <<< "$s"

Success #stdin #stdout 0.01s 5540KB

stdin

Standard input is empty

stdout

bob mary
mary mike
mike bill
bill kim
kim jim
jim john

https://ideone.com/a46JXB

language:

Bash (bash 5.0.3)

created:

visibility:

secret

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!