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