my @Names =~ grep("$Info", @Lines);

##</code><code>##

my @Names = grep(/$Info/, @Lines);

##</code><code>##

my @Names = grep(/^$Info$/, @Lines);

##</code><code>##

use warnings;
or
#!/usr/bin/perl -w (pre 5.6)