use warnings;
use strict;

use Readonly;

Readonly my $BAR => qr{ bar }xms;

my $string = q{fie foo bar baz barf};

print qq{found $1} if $string =~ m{ foo \s* ($BAR) \s* baz }xms;