http://www.perlmonks.org?node_id=1025892


in reply to Re^4: Regex Help
in thread Regex Help

How about "everything from pirates to careebian" ? ;-)

use strict; use warnings; while(<DATA>){ chomp; print $1,$/ if /(pirates.*careebian)/; } __DATA__ piratesofcareebian100 pirates of careebian100 pirates of careebian 100 pirates1 of careebian 100 pirates2 of careebian 100 pirates3 of careebian 100