if($line =~ /\b\Q$TEMP\E\b/) {

##</code><code>##

!/usr/bin/perl
use strict;
use warnings;

my $conf_file = 'something';

open(my $in,'<', $conf_file) or die("unable to open $conf_file");
my @lines = <$in>;
print @lines;

print "Please choose a number from the list above: ";
chomp(my $input = <STDIN>);
#    $input=trim($input);
print "Your Choice was: $input \n";

for my $line (@lines) {
    if ($line =~ /\b\Q$input:\E\b/) {
        print " exact match: $& \n" ;
        print " after match: $' \n" ;
        my $svc = $';
        print "ServiceL $svc \n";
    }
}