my $string = 'A/B/C';
my ($var1,$var2) = $string =~ m!(.*)/(.*?)$!;
print $var1," .. ",$var2;