while( $string =~ m/\bstart:(.+?)\bstop:/g ) { print "$1\n"; }