sub extract{
  my ($filename, $filepath, $regex) = @_;

  # do stuff

}