编写Perl正则表达式，可以按照以下步骤进行：

1. 打开一个Perl脚本文件，并使用use strict;和use warnings;语句启用严格模式和警告模式。

use strict;
use warnings;

2. 定义一个包含正则表达式的字符串变量。

my $regex = qr/pattern/;

3. 使用正则表达式进行匹配操作，可以使用=~操作符将正则表达式应用于字符串。

my $string = "example string";
if ($string =~ $regex) {
    print "Match found\n";
} else {
    print "No match found\n";
}

4. 可以使用正则表达式的特殊元字符和修饰符来进行更复杂的匹配操作。例如，使用^元字符匹配字符串的开始，使用$元字符匹配字符串的结束。

my $regex = qr/^start.*end$/;
my $string = "start middle end";
if ($string =~ $regex) {
    print "Match found\n";
} else {
    print "No match found\n";
}

这是一个基本的Perl正则表达式编写的示例。根据具体需求，可以使用不同的正则表达式元字符和修饰符来实现更复杂的匹配逻辑。