while (<>) {
  next unless /prefix$part/;
 ...
}