#!/usr/bin/perl 
use strict;
use warnings;

my $filename = "rahul.abc";
chomp $filename;  

my @filename = split ('\.', $filename);
$filename[$#filename] = 'newEnding.txt';
my $newFilename = join('.', @filename);

print STDERR "OLD: $filename\tNEW: $newFilename\n";