perl -ne'print $1 while /(?