#!/usr/bin/perl -w
use strict;
my $path = 'hiec/by/mlor/kkss23/dndd@@mani/css.cpp/0';
$path = chop($path);
if ($path == 0)
{}
else
{}