$org_fn = $ARGV[1];
	($file,$dir,$bak) = fileparse("/tmp/file.bak",
                        qr/~+$/, qr/\.(bak|orig|save)/)
	print "$file \n";