use strict;
use warnings;

my $w = '$expdata =~ /HOST=.*(;';
eval $w;