for $file (@files) {
  next if $file =~ /^.+/;
}