my $foo = 'first part';
my $anything = '.*';
my $bar = 'last part';

$_ =~ /$foo$anything$bar/;