$in=<STDIN>;
chomp $in;
    if ($in !~ /\.txt$/i)
        {
            $in.=".txt";
        }