Q2. A2.   RTFM: perldoc -f grep

Q1. A1.   perldoc perlretut

or, work out what's happening here:

...
for my $var(@var) {             # as ikegami said, you're not working 
+with a hash
    if ( $var !~ /\/* .*? \/*/ ) {
        print "\$var, \'$var\', is (something for iphone to fill in) \
+n";
    } else {
        print "\$var, \'$var\', is (the reverse) \n";
    }
}
...
[download]