use strict;
use warnings;

my $file_path='/home/sites/site18/users/rjoseph/web/images/image1.jpg';
my $break_point = '/web';

my @foo = split($break_point, $file_path);
my $path = $break_point . pop(@foo);

print $path;