#!/usr/bin/perl

# DO NOT EDIT - This file is being maintained by Chef

use strict;
use warnings;

use Cwd qw(abs_path);

$| = 1;

while (my $path = <STDIN>)
{
    chomp $path;

    my $file = abs_path("/store/planet${path}");

    if ($file && $file =~ m|^/store/planet(/.*)$| && -f $file)
    {
        print "$1\n";
    }
    else
    {
        print "NULL\n";
    }
}