while (<>) {eval if !/^#/}#The script executes it like this:#How does this script look with the $_ back in? while ($_ = <>) {eval $_ if !($_ =~ /^#/)}