#!/usr/bin/perl -w

#use strict;
no warnings;


my $p='';
my $f='';

$p = $ARGV[1];
$f = $ARGV[1];

$p =~ s/(.*)\/([^\/]*)/$1\//;
$f =~ s/(.*)\/([^\/]*)/$1/;

print($p."\n");
print($f."\n");