my $word = $ARGV[0];
open(FILE, 'file') || die "open file error : $!\n";
while(){
chomp;
if(/\b$word\b/){
$line = $.;
$colum = 1;
@words = split;
foreach(@words){
if($_ !~ /\b$word\b/){
$colum += 1;
}
else{
print "$word : $line,$colum\n";
last;
}
}
last;
}
}
close FILE;