#!usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

my $file;
GetOptions("f|file=s" => \${file}) or die "invalid option\n";
if ($file)
{
  my $fname = $file;
  open (INFO,"<",$fname) or die " Could not open\n" ;
  open (OUTFO,">>","text.txt") or die "Could not open\n";
  my (@line, $myline); 
  @line=<INFO>;
  foreach $myline(@line)
  {
     if($myline=~ /(t\.min=)(.*)(;)/)
     {print OUTFO "tmin = $2\n";};
     if($myline=~ /(t\.max=)(.*)(;)/)
     {print OUTFO "tmax = $2\n";};
  }
close OUTFO;
close INFO;
}