my $string = "./t2";
my $string2 = "/some/path/to/t3";
my $base = (split(/\//, $string))[-1];
my $base2 = (split(/\//, $string2))[-1];

print "$base\n$base2\n";