#!/usr/bin/perl -i -n
print unless /\bsome string\b/;