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