Help for this page
if($line =~ /\b\Q$TEMP\E\b/) {
!/usr/bin/perl use strict; ... print "ServiceL $svc \n"; } }