in reply to Re: Passing variables into regular expressionsin thread Passing variables into regular expressions
chomp(my $HN = `hostname`); [download]
I'd recommend using Sys::Hostname.