我们可以使用Perl中的正则表达式来查找和替换文本。 以下是示例代码，它将从文本文件中查找给定的单词，并删除第一次出现的所有字符/单词。

#!/usr/bin/perl

use strict;
use warnings;

my $word = 'example';    # 词汇

my $filename = 'input.txt';    # 输入文件名

# 打开输入文件
open(my $fh, '<', $filename) or die "无法打开文件 '$filename' $!";

# 读取文件内容
my $input_text = do { local $/; <$fh> };

# 查找第一次出现的给定词汇
if ($input_text =~ /$word/) {

    # 使用正则表达式删除第一次出现的词汇及其前面的所有字符/单词
    $input_text =~ s/.*?$word//;

    # 打印修改后的文本内容
    print $input_text;

} else {

    print "没有找到给定的词汇 '$word'";
}

# 关闭文件句柄
close($fh);

在这个示例中，我们打开一个文本文件，读取它的内容。然后，我们使用正则表达式查找给定的词汇，并删除它及其前面的所有字符/单词。最后，我们打印修改后的文本内容。

请注意，这个示例只处理第一次出现的词汇。如果你想删除多个出现，可以在正则表达式中使用全局替换符号"g"。例如，如果您想删除文本中的所有出现，将替换操作中的模式更改为：s/.*?$word//g;