$foo = $0;

print "\n\t \$foo: |$foo| before the substitution \n";

$foo =~s/^.*\\//;
print "\n\t And, after the substitution: |$foo| \n";