in reply to Re: Passing variables into regular expressions
in thread Passing variables into regular expressions

chomp(my $HN = `hostname`);

I'd recommend using Sys::Hostname.