Select Code to Download

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

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

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

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