#! c:\perl\bin

print("Enter filename to open (text only):\n\n");

##</code><code>##

use strict;
use warnings;

##</code><code>##

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

##</code><code>##

chomp(my $in=<STDIN>);
$in .= '.txt' unless $in =~ /\.txt$/i;

##</code><code>##

open ($in, "$in") or die("$in could not be opened:$!\n"); 

##</code><code>##

open my $infh, '<', $in or die "$in could not be opened:$!\n";

##</code><code>##

        s/\band\b/$word/ig;
                
                while (/\band\b/ig)
                    {
                    ++$count;
                    }