#!/usr/bin/perl my $txt = ' none bing some bong any bang '; while ( $txt =~ /^ {9}(\S+) {10}(\S+)\s*$/mg ) { print "'$1' '$2'\n"; }