#!/usr/bin/perl -w
use strict;

1 =~ m{(?{{
    $foo = 42;
    $bar = 2;
    print $foo * $bar, "\n";
}})};