$filepath =~ tr!/!\\!;