replace_file_prefix.pm

use constant {
  PREFIX_DIVIDER => ':',
  PREFIX_ALIASES => {
    'foo' => 'foo/barz/location/',
  }
};

sub find_and_replace_prefix {
 my ($filename) = @_;
 
 if (!(defined($filename) && !ref($filename))) {
   warn 'find_and_replace_prefix requires an argument of the type scalar';
 }
 
 if (index($filename, PREFIX_DIVIDER) > 0) {
  my @path = split PREFIX_DIVIDER, $filename;
  my $prefix = $path[0];
  if (defined PREFIX_ALIASES{$prefix}) {
    $filename = PREFIX_ALIASES{$prefix} . $path[1];
  }
 }
 
 return $filename;
}