文字列正規表現コンパイル

reg.php

<?php
$str = 'abcd123';
$reg = '/^abc/';
if ( preg_match( $reg, $str ) ) {
  echo 'match!';
}

reg_ng.pl

#!/usr/bin/perl
use strict;
use warnings;
my $str = 'abcd123';
my $reg = "/^abc/";
if ( $str =~ $reg ) {
  print 'match!'; # ここ通らない
}

reg_ok.pl

#!/usr/bin/perl
use strict;
use warnings;
my $str = 'abcd123';
my $reg = "/^abc/";
my $reg_obj = eval( "qr$reg" ); # ←←←←ココ
if ( $str =~ $reg_obj ) {
  print 'match!';
}