#!/usr/bin/perl -w
 
use strict;
 
my $FileName='/home/sites/site18/users/rjoseph/web/images/image1.jpg';
my $Stripped=substr $FileName,0,index($FileName,'web');
 
print "Stripped to: $Stripped\n";