#!/usr/bin/perl -wT

use strict;

#my $filename is somehow parsed before this
$filename =~ /^(\w+)\.\w+$/;
my $replacewith = $1;

open (FILE, "<$filename") || die ("Error: $!");
   my $line = <FILE>;
   chomp $line;
   my $toreplace = substr($line,-10);
close FILE;

$line =~ s/$toreplace/$replacewith/;