package Foo::Bar;
...
my $regex = qr{ hello }xms;
...
sub new { ... }
...
sub method {
  my $self = shift;
  ...
  if ($self->{bar} =~ m{ \b $regex \b }xms) { ... }
  ...
  }
...
1;