$SC = "example.pl";
if ($0 =~ m/(.*)$SC/i){ $dir = $1; print $dir."\n";}