if ($line =~ /mydir/) {
  $directory = ...
  mkdir $directory, 0775;
}