my $full = '/usr/local/jboss';
my ($dir, $file) = $full =~ m|(.+)/(.+)|;