Select Code to Download

$server_name =~ m{
    \A                   # start of string
...
    \.                   # a literal period
    product1help\.com    # literal 'product1help.com'
}xms;

$server_name =~ m{
    \A                   # start of string
...
    product1help\.com    # literal 'product1help.com'
}xms;
my $prefix = $1;