File content
============
1: Recturing Svc
2: Finance
    :
    :
9: Payments
    :
    :
19: Mobile
     :
     :
29: Bankers

##</code><code>##

open(INPUTFILE,"<$conf_file") or die("unable to open text file");
 foreach (<INPUTFILE>) {
   print "$_";
}
close INPUTFILE ;
print "Please choose a number from the list above: ";
    chop($input=<STDIN>);
    $input=trim($input);
print "Your Choice was: $input \n";
$TEMP="$input:";
open(INPUTFILE,"<$conf_file") or die("unable to open text file for comparision");
foreach $line(<INPUTFILE>) {
if($line =~ /$TEMP/) {
print " exact match: $& \n" ;
print " after match: $' \n" ;
$svc = $';
print "ServiceL $svc \n";
}
}
close INPUTFILE ;