How to skip lines in data file with specific pattern

eg. skip processing of lines with # at start of line open(inhandle, $infile); LINE: while (<inhandle>) { next LINE if /^#/; #skip comment lines # insert remaining code here }