#!/usr/bin/perl
package Test;

sub test {
    return 'test_1';
}

package main;
if ( 'test_1' =~ m/(?{ Test::test() })/) {
    print "ok\n";
} else {
    print "not ok\n";
}
__END__
ok