#!/usr/bin/perl
use strict;
use warnings;
use FindBin ();
use lib do { (my $dir=$FindBin::Bin)=~s|/foo/|/bar/|; $dir };