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

##</code><code>##

open(FILE, '<', $ARGV[0]);