while (my $line = readline STDIN) {
    # If the line matches the expression then skip the line.
    # Note the use of /x 
    if ( $line =~ /\b word \b/x ) {
        # Skip to the the next iteration
        next;
    }

    print $line;
}
[download]