use strict;
use warnings;

my $file = "blah";

$_ = "kba.gz";
my $file =-~ /kba\.gz$/;
print $file, "\n";

$_ = "abcd";
my $file =-~ /kba\.gz$/;
print $file;