my $string = "/alex/samsung/t2";
$string =~ m/([^\/]+)$/;
print $1, "\n";