#!/usr/bin/perl -w $flag = 0 ; chomp($b = ); open CONFIG, $ARGV[0]; while() { if($_ =~ $b) { print "Success \n"; $flag = 1; last; } } if($flag != 1) { print "Failure\n"; }