#!/usr/bin/perl
use strict;
use warnings;

while ( <DATA> ) {
	chomp;
	my $fname = $_;
	print qq(\nBefore: $fname\n);
	my $extra = '';
	$fname =~ s/$extra//;
	$fname =~ s/`/ /;
	print qq( After: $fname\n);
}

exit;

__DATA__
2025-05-05`09:22:00            7,674  -rw-rw-rw-  C:\~Zipfile\H\HelpingHand\Software\DevTools\.edit.current
2025-05-05`09:22:00            7,674  -rw-rw-rw-  C:\PerlApps\H\HelpingHand\Software\DevTools\.edit.current
2025-05-05`09:22:00            5,448  -rw-rw-rw-  C:\~Zipfile\B\Bat\pics\.edit.current