#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
  chomp($_);
  print_str($_);
}

sub print_str {
  my ($str) = @_;
  print substr(lc($str), 1), "\n";
  print lc(substr($str, 1)), "\n\n";
}

__DATA__
/A/a/B
/A/a/b
/A/a/b/a
/A/a/b
/A/a
/A/b
/A