在Perl中用简单模式表示长字符串文字的最简单方法是什么?

Tho*_*son 3 perl

我在Perl中有一个很长的文字字符串,有没有办法将它表示为简单的模式而不是逐个输入?比如下面的一些语法.

$a = "abc" * 2; # $a gets "abcabc";
Run Code Online (Sandbox Code Playgroud)

Tot*_*oto 8

使用x运算符:

$a = "abc" x 2; # $a gets "abcabc";
Run Code Online (Sandbox Code Playgroud)