my $file = 'test.txt';
my $png = $file =~ s/\.txt/.png/r;# $png -> test.png