使用index而不是正则表达式：

perl -nle 'print if index("show", $_) == 0'

（-l从$_中删除换行符，并在print后添加一行）
如果输入是show的前缀（即，如果输入是show的子字符串，其索引从0开始），则此一行程序将打印输入。
如果你真的需要一个正则表达式，我建议：

/^s(h(ow?)?)?$/

(use如果捕获组的性能很重要，则使用(?:而不是(：它基本上是一样的，除了它没有捕获组）
这种正则表达式应该很容易通过递归函数以编程方式构建：

sub build_re {
  my ($first, $end) = split //, $_[0], 2;
  return $first if $end eq "";
  return "$first(" . build_re($end) . ")?";
}

my $re = build_re("show");  # prints s(h(o(w)?)?)?

print "s" =~ /^$re$/ ? 1 : 0; # 1
print "sh" =~ /^$re$/ ? 1 : 0; # 1
print "show" =~ /^$re$/ ? 1 : 0; # 1

print "showw" =~ /^$re$/ ? 1 : 0; # 0
print "how" =~ /^$re$/ ? 1 : 0; # 0

split（2）的3参数告诉split只分割成2个字段，而不是“尽可能多”（默认值）。这样，这个split将build_re的输入分割成“第一个字符”和“其余”。它在某种程度上等效于my ($first, $end) = $_[0] =~ /^(.)(.*)$/（假设输入在一行上）。