my $filename = " ../../asdf"; $filename =~ s/^.*[\\\/:]//; print $filename;