#!/usr/local/bin/perl



my $search = "Does this sentence contain lance or not?";

$search =~ s/\S+lance\S+//;
print "$search";